Select Code to Download

sub scanfile ($) {
   my $filename= shift;
...
   return do { local $/; scan(<$handle>) };
}