Select Code to Download

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

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

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