$filename = [inputted field with Local Address, eg c:/file.jpg];
$file = [split of the filename removing everything before the last /]

open(OUTFILE,">>[destination].$file");
while ($bytesread=read($filename,$buffer,1024) ) {
  print OUTFILE $buffer;
}

$fh = upload('[name of field]');
while(<$fh>) {
  print;
}

##</code><code>##

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;

}

##</code><code>##

sub process {
  my $self = shift;
  my $html_template = $self->param('html_template');
  my $q = $self->query;
  my $script = $q->script_name;

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

  binmode $filename; #just to be sure?

#check rm
  my ($results, $err_page) = $self->check_rm('input',
                                   {
                                     required => [qw/uploaded_file/],
                                     filters => ['trim'],
                                     msgs => {
                                               missing    => 'Please Supply a File Name',
                                             }
                                   });

  return $err_page if $err_page;

#sall good patch together
#  if ($diff_name)
#  {
#  $filename = $diff_name;
#  }
  my $output_file = $destination . $filename;
#upload time
  open (OUTFILE, ">", "$output_file") or die "Couldn't open $output_file for writing: $!";
  while ($bytesread = read($filename, $buffer, $num_bytes)) {
    $totalbytes += $bytesread;
    print OUTFILE $buffer;
  }
  die "Read Failure" unless defined($bytesread);
  unless (defined($totalbytes)) {
    print "<p>Error: Could not read file $filename, ";
    print "or was of zero length";
  } else {
    print "<p>Done ok, $totalbytes</p>";
  }
  close OUTFILE;
# or die "Couln't Close file $!";

#output
  my $output;

  $html_template->process('upload/form', {wrapper => $self->wrapper(),
					status => "sall_good",
					file => $filename,
					dest => $destination,
					from => $from,
					}, \$output)
           || die $html_template->error;
  return $output;

}

##</code><code>##

#  open (OUTFILE, ">", "$output_file") or die "Couldn't open $output_file for writing: $!";
  open my $outfile, ">", $output_file or die "Couldn't open $output_file for writing: $!";
#  binmode $filename; #just to be sure?

  while ($bytesread = read($filename, $buffer, $num_bytes)) {
    $totalbytes += $bytesread;
    print OUTFILE $buffer;
  }
##  die 
print "Read Failure: $!" unless defined($bytesread);