sub readFile {
   my $filename = shift;
   my $fh = new FileHandle("<" . $filename);
   local $/ = undef;  # slurp mode
   my $data = <$fh>;
   $fh->close; 
   return $data;
}