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