#!/usr/bin/perl

use strict;
use warnings;
use Encode::Punycode;
use Encode;
use Socket;

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

sub getip {
    my ($host) = @_;
    
    my ($name,$tld) = split(/\./,$host);
    
    my $encoded = encode('Punycode',$name);
    print $encoded,"\n";
   
    my $addr = gethostbyname( $encoded.'.'.$tld );
    $addr = gethostbyname( $host ) unless $addr;
       
    die "Hostname $host doesn't exist.\n" unless $addr;

    return inet_ntoa( $addr );
}