Select Code to Download

#!/usr/bin/perl
use warnings;
...
my $flag_utf8 = utf8::is_utf8($perl->{'my'}) ? 1 : 0;
print "is unicode: $flag_utf8\n";
print Dumper($perl), "\n";