I got
Use of uninitialized value $minbits in numeric ne (!=) at C:/Perl/lib/
+utf8_heavy.pl line 225.
at C:/Perl/lib/utf8_heavy.pl line 225
utf8::SWASHNEW('utf8', 'Print') called at unicode_printable.pl
+ line 11
eval {...} called at unicode_printable.pl line 11
Use of uninitialized value $minbits in numeric lt (<) at C:/Perl/lib/u
+tf8_heavy.pl line 225.
at C:/Perl/lib/utf8_heavy.pl line 225
utf8::SWASHNEW('utf8', 'Print') called at unicode_printable.pl
+ line 11
eval {...} called at unicode_printable.pl line 11
Use of uninitialized value $bits in numeric lt (<) at C:/Perl/lib/utf8
+_heavy.pl line 237.
at C:/Perl/lib/utf8_heavy.pl line 237
utf8::SWASHNEW('utf8', 'Print') called at unicode_printable.pl
+ line 11
eval {...} called at unicode_printable.pl line 11
main::(unicode_printable.pl:11): unless( eval { $swash = ut
+f8->SWASHNEW( $item ); 1; } ){
unicode_printable.pl is what I stepped through your script. It does work, I like the trick where you pull the ranges from after __END__ with @ARGV, but I cannot find that documented anywhere in the perldocs, maybe I'm not looking hard enough?
SSF