sub ipv4_to_int {
    my $int = 0;
    foreach (split(/\./, $_[0]) {
        $int <<= 8;
        $int += $_;
    }
    return $int;
}

sub int_to_ipv4 {
    my $ip = '';
    my $int = shift;
    while($int) {
        $ip = ($int & 255).".$ip";
        $int >>= 8;
    }
    chop($ip);
    return $ip;
}