Select Code to Download

use Unicode::UCD qw/charscript charblock/;
my $infile = shift @ARGV;
...
   $c = charblock($uChar);
   print "DEBUG: $c\n";  #produces warning and prints blank
}

my $c = charblock(1578);
print "$c\n";