Select Code to Download

open(my $fh, '<', $qfn)
   or die($qfn);
binmode($fh);
local $/ = \( 64*1024 );
print while <$fh>;