my $my_cgi new CGI;
my $upload_filehandle = cgi ->upload('file1');
my $filename = $cgi->param('file1');
$filename =~ s/.*[\/\\](.*)/$1/;
if ($upload_filehandle) {
    open(FILE1, ">$upload_dir/$filename") || print("Could not open file!");
    binmode FILE1;
    while (<$upload_filehandle>) {
        print FILE1 ;
    }
    close FILE1;
}