use CGI;
$cgi=new CGI;

$file=$cgi->param('file_field');

$newName=&FileUpload($file);

sub FileUpload{
        my $FileName=shift @_;
        my $tmpdir ="/your/path";
        my $bufferSize=4096;
        my $limit=10000000;#File Size Limit
        my ($debug, $FILE, $file, $size, $tmppath, $line, $buffer);
        $size = 0;
        if (length($FileName) != 0){
                $| = 1;
                $FILE = $FileName;
                ($file = $FILE) =~ s/^.*?([^\\\/]+)$/$1/;
                $tmppath = "$tmpdir\\$file";
                open (OUT, ">$tmppath") or print "Error opening $tmppa
+th: $!<br>\n";
                binmode OUT;
                while(($line = read ($FileName, $buffer, $bufferSize))
+ && ($size < $limit)){
                        print OUT $buffer;
                        $size += $line;
                        if ($size > $limit){
                                $err_flag = 1;
                        }
                }

                close OUT;
                $| = 0;
                $FileName = $file;
        }
        else{##Empty File
                $FileName = "";
        }       

        #Upload Error
        if ($err_flag == 1){
                unlink ($tmppath);
                $FileName = "";
        }
        $FileName;
}
[download]