Select Code to Download

unpack("a4", inet_ntoa($buffer);

my $buf,$str;
my $ip_addr="10.10.10.1";
$buf=pack("a4",inet_aton($ip_addr));
$str=inet_ntoa(unpack("a4",$buf));
print "$str\n";