Untitled

#!/usr/bin/perl
# upload file script by stas 27/06/2012
use CGI;
use strict;

#change CGI temp folder (default = /usr/tmp)
$CGITempFile::TMPDIRECTORY = "/home/tmp";

#upload path (make sure you have write permissions)
my $uploadPath = "./uploads";

#The name attribute on <input type="file" name="??" /> tag.
#In other words, the post parameter name which includes the file
my $httpParamName="upfile";

#Max file Size (bytes)
my $maxSize = 1 * 1024 * 1024;

#Set max post size (bytes) automaticly 10kb bigger then size limit
#$CGI::POST_MAX = $maxSize + 10* 1024;

################################
#                       Main
################################
my $cgi=new CGI;
my $fileToUpload = $cgi->param($httpParamName);
print $cgi->header;

if($fileToUpload){
        upload();
}
else{
        print "Please specify file";
}


################################
#               Sub routines
################################
sub upload
{
        #get filehandle from CGI
        my $upload_filehandle = $cgi->upload($httpParamName) || error($!);

        #check max size
        if(-s $upload_filehandle > $maxSize){
                error("File too big. (size limit: $maxSize bytes)");
        }

        # If you're on Windows, you'll need this. Otherwise, it has no effect.
        binmode($upload_filehandle);

        #create the new file
        open(UPLOAD,">$uploadPath/".$fileToUpload) || error($!);

        # If you're on Windows, you'll need this. Otherwise, it has no effect.
        binmode(UPLOAD);

        #write the file
        my ($nBytes,$totBytes,$buffer);
        while ( $nBytes = read($upload_filehandle, $buffer, 1024) )
        {
                print UPLOAD $buffer;
                $totBytes += $nBytes;
        }

        print "uploaded successfully<br/>$fileToUpload ($totBytes bytes)";
}


sub error
{
         print "Error: $_[0]<br/>";
         exit;
}