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