##

#!/usr/bin/perl -w

use CGI qw(:standard);
use CGI::Carp 'fatalsToBrowser';
use Fcntl qw( :DEFAULT :flock );

$CGI::DISABLE_UPLOADS = 0;
$CGI::POST_MAX = 52428800;

my $SAVE_DIRECTORY = "full_path_to_save_directory";
my $query=new CGI;

my $filename=$query->param("filename") or die "$!";
my $file    =$query->param("upfile") or die "$!";
my $fh      =$query->upload($file) or die "$!";

<>

open(OUTFILE, ">$SAVE_DIRECTORY\/$filename");
binmode OUTFILE;

while ($bytes = read($fh,$buffer,1024))
{
  $size+=$bytes;
  print OUTFILE $buffer;
}
if ($size > 0)
{
  print "$filename uploaded: $size bytes

"; } #### /usr/lib/perl5/5.6.1/i386-linux /usr/lib/perl5/5.6.1 /usr/lib/perl5/site_perl/5.6.1/i386-linux /usr/lib/perl5/site_perl/5.6.1 /usr/lib/perl5/site_perl/5.6.0 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.6.1/i386-linux /usr/lib/perl5/vendor_perl/5.6.1 /usr/lib/perl5/vendor_perl . 2.752