what about www.müller.de? A completely valid and working domain... (although the content is rubbish)

Just change my $name = lc $name; to $name = eval { punycode(lc $name) }; and add the Punycode code to your program. That'll do the trick.