Select Code to Download

use strict;
use charnames ':full';
use Mail::RFC822::Address qw(valid);
...
print "$puny\n";
print "That's a valid unicode address\n" if valid($email_address);
print "That's a valid Punycode address\n" if valid($email_address);

xn--@be-0we00514a
That's a valid unicode address
That's a valid Punycode address