use CGI;
my $q = CGI->new;
my $fileHandle = $q->upload('file');
my $file = $q->param('file');

my $bytesread;
my $buffer;

open FILE , ">YOUR_NEW_FILE"; 
while($bytesread = read($fileHandle, $buffer, 1024)) {
    print FILE $buffer;
}
close FILE