use Encode::Punycode;
use Encode;
use Socket;

print getip( 'müller.de' );

sub getip {
    my ($host) = @_;
    
    my $addr = gethostbyname( encode('Punycode', $host ) );
   $addr = gethostbyname( $host ) unless $addr;
        
    die "Hostname $host doesn't exist.\n"
      unless $addr;
 
    return inet_ntoa( $addr );
}