Select Code to Download

#!/usr/bin/perl -w

...
STDERR->print(Dumper([PerlIO::get_layers($fh)]));

$fh->close();

$VAR1 = [
          'unix',
          'perlio',
          'utf8'
        ];

#!/usr/bin/perl -w

...

$fh->close();