open(FILE,"<".$filename) || die ("Could not open FILE");
      @file_arr = <FILE>;
      close(FILE);

      foreach $line(@file_arr) {
      $data .= $line;
      }