$CGI::POST_MAX = 1024 * 50000; 
my $safe_filename_characters = "a-zA-Z0-9_.-"; 
my $upload_dir = "testfolder"; 
 
my $query = new CGI; my $filename = $query->param("uploadfile1"); 
 
my $upload_filehandle = $query->upload("uploadfile1"); 
open ( UPLOADFILE, ">$upload_dir/1.jpg" ) or die "$!"; binmode UPLOADFILE; while ( <$upload_filehandle> ) { print UPLOADFILE; } close UPLOADFILE;

use warnings; 
use strict;