use Socket;
for my $dot_quad ( "0.0.0.1", "127.0.0.1", "192.168.0.1" ) {
    my $integer = unpack "N", inet_aton($dot_quad);
    my $ip = inet_ntoa(pack "N", $integer);
    print "$ip\t int:$integer\n";
}