Select Code to Download

$filename = [inputted field with Local Address, eg c:/file.jpg];
$file = [split of the filename removing everything before the last /]
...
while(<$fh>) {
  print;
}

use CGI;
use CGI::Upload;
...
return;

}

sub process {
  my $self = shift;
...
  return $output;

}

#  open (OUTFILE, ">", "$output_file") or die "Couldn't open $output_f
+ile for writing: $!";
  open my $outfile, ">", $output_file or die "Couldn't open $output_fi
+le for writing: $!";
...
  }
##  die 
print "Read Failure: $!" unless defined($bytesread);