sub dq2number { 
    my $ip = shift; 
    return unpack "N", pack "C4", split /\D/, $ip; 
} 
sub number2dq { 
    my $n = shift; 
    return join q{.}, unpack "C4", pack "N", $n; 
}