##

#!/usr/bin/perl
use CGI;

#SET SOME DEFAULT STUFF
###################################################
use constant BUFFER_SIZE   => 16_384;      
use constant MAX_FILE_SIZE => 48_576;       
$CGI::DISABLE_UPLOADS      = 0;             
$CGI::POST_MAX             = MAX_FILE_SIZE;                 

#GET THE VARIABLE AND FILE INFORMATION
###################################################
my $query         = new CGI;
my $filehandle    = $query->upload('file');
my $filename      = $query->param('file');
my $var1          = $query->param('var1');

#GET FILE NAME BY REMOVING FULL DIRECTORY INFO
#eg C:\windows\blah\file.txt
##############################################
@pathz      = (split(/\\/,$filename));
$fileb      = $pathz[$#pathz];
@pathza     = (split('/',$fileb));
$filename   = $pathza[$#pathza];



#UPLOAD THE FILE TO SELECTED DESTINATION
##############################################
open OUTPUT, ">/absolute/path/to/$filename" or die "Can't open: $!";
while (<$filehandle>) {
    print OUTPUT;
}
close OUTPUT or die "Can't close: $!";


#DONE
##############################################
print "Content-type: text/html\n\n";
print "Sorted!\n";
print "Passed Variable = $var1
";
print "File name uploaded was $filename
\n";
exit;