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