sub isIPinNetwork
{
    my $some_ip  = shift;
    my $find_net = shift;

    my ($net_ip, $net_mask) = split(///, $find_net);
    my ($ip1, $ip2, $ip3, $ip4) = split(/./, $net_ip);
    my $net_ip_raw = pack ('CCCC', $ip1, $ip2, $ip3, $ip4);
    my $net_mask_raw = pack ('B32', (1 x $net_mask), (1 x (32 - $net_mask)));

    ($ip1, $ip2, $ip3, $ip4) = split(/./, $some_ip);
    my $some_ip_raw = pack ('CCCC', $ip1, $ip2, $ip3, $ip4);

    # $some_ip_raw  ЧЩЮЙУМСЕН РП БОБМПЗЙЙ У $net_ip_raw
    return 1 if (($some_ip_raw & $net_mask_raw) eq $net_ip_raw);
    return 0;
}