use strict;
use CGI;

my $q = new CGI;
my $path = "/home/nobody/d2dReviewDatFiles/" . $project . "/";
my $newFile = $path . "allRecords.txt";

my $uploadedFile = $q->upload("file" );
  open (NEWREF, ">$newFile");
  binmode $uploadedFile;
  binmode NEWREF;
  while (<$uploadedFile>) {
    print NEWREF;
  }
  close (NEWREF);