Select Code to Download

use Data::Dumper qw( Dumper );

...
   my $data = <$fh>;
   print("Read: ", txtdump($data), "\n");
}

Orig: "foo\nbar\n"
File: 66 00 6F 00 6F 00 0D 00 0A 00 62 00 61 00 72 00 0D 00 0A 00
Read: "foo\nbar\n"