Select Code to Download

sub scanfile ($) {
   my $filename= shift;
...
   open $handle, '<', $filename  or croak "can't open file [$filename]
+ ";
   return scan (<$handle>);
   }