Help for this page
use strict; use warnings; ... while ( <$fh> ) { print; }
use strict; use warnings; ... }; my $str = decode('UTF-16', $_); print $str;