sub doUpload {
my ($bytes, $buffer, $bytesread);
my $filehandle = CGI::param('filepath');
open OUTFILE, '>$filehandle' or die "Couldn't open output file: $!\n";

##</code><code>##

my $filehandle = CGI::param('filepath');

##</code><code>##

my $filehandle = upload('filepath')
    or die "No file uploaded!";