use CGI;
use CGI::Upload;

sub process {
  my $self = shift;
  my $q = $self->query;
  my $script = $q->script_name;

  my $filename = $q->param('uploaded_file');
  my $totalbytes;
  my ($bytesread, $buffer);
  my $numbytes = 1024;
  my $destination = "/home/[PATH REMOVED]/htdocs/uploads/";

#check rm

  print "Filename ($filename) good\n";
#sall good patch together
  my $output_file = $destination . $filename;

  print "Uploading $filename to $destination";
#upload time
  open (OUTFILE, ">", "$output_file")
    or die "Couldn't open $output_file for writing: $!";
  while ($bytesread = read($filename, $buffer, $numbytes)) {
    $totalbytes += $bytesread;
    print OUTFILE $buffer;
  }
  close OUTFILE;

#output
  print "sall good";

return;

}