use Socket;
my $hostname = "somehost.ext";
my @addr = inet_aton($hostname) or return "Unknown or invalid host.";

my($a,$b,$c,$d) = unpack('C4', $addr(0));
#change the $addr() to brackets, this form filters brackets out.
my $ip = "$a.$b.$c.$d";
print $ip;