use CGI; my $q = CGI->new; my $fileHandle = $q->upload('file'); my $file = $q->param('file'); my ($buffer, $bytesread); my $newfile = "/path/to/file"; open FILE, ">$newfile"; while($bytesread = read($fileHandle, $buffer, 1024)) { print FILE $buffer; } close FILE;