use Socket;

my $ip_hex = join('.', map { sprintf("%02X", ord($_)) }
                        split(//, inet_aton($addr)));

my $ip_dec = join('.', map { hex($_) } split(/\./, $ip_hex));