my $host = 'google.de';
my $ip;
unless ( $ip = ( gethostbyname ( $host ) )[4] ) {
    die "$host not found\n";
}
$ip = join ".", unpack "C4", $ip;
print "$ip\n";