if(-d $session_dir){ 
        my $query = new CGI;
        my $file_name = $query->param("filename");
        $file_name = (split(/[\/\\]/,$file_name))[-1];
        my $upload_file_path = $upload_dir.$file_name;
        my $upload_filehandle = $query->upload("filename");

        print 'Moving File to Upload Directory -> ';
        my ($tmpfh2, $buffer);
        if ( open($tmpfh2, '>', $upload_file_path ) ) { 
                flock($tmpfh2, LOCK_EX);
                while (my $bytesread = read($upload_filehandle, $buffer, 1024)) {
                        print $tmpfh2 $buffer;
                }
                if( close($upload_filehandle) and close($tmpfh2) {
                        print $query->b({-style=>'color:green'}, "Success"), $query->br();       
                } else { 
                        print $query->b({-style=>'color:red'}, "Failure"),$query->br();
                }
        } else { 
            print $query->b({-style=>'color:red'}, "Failure"),$query->br();
        }
    }