Select Code to Download

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

use strict;
use warnings;
...
# 172.16.0.1 172.16.0.0 172.16.0.2
# 127.0.0.1 127.0.0.0 127.0.0.2
# 192.168.0.1 192.168.0.0 192.168.0.2