sub file2scalar {
   my $filename = shift;
   return "Error: $filename doesn't exist" unless -f $filename;

   open FH, $filename || return "Error: can't read $filename";
   return do{local $/; <FH>};
}