################################################################################ 
## Process Uploaded File
################################################################################
	if(-d $session_dir){ 
		my $query = new CGI;
		my $file_name = $query->param("filename");
		$file_name =~ s/.*[\/\\](.*)/$1/;
		my $upload_file_path = $upload_dir.$file_name;
		my $upload_filehandle = $query->upload("filename");
		my $tmp_filename = $query->tmpFileName($upload_filehandle);
		close($upload_filehandle);
		print "Moving File to Upload Directory -> ";
		if ( rename($tmp_filename, $upload_file_path) ) { 
			print "<b style='color:green;'>Success</b><br>"; 
		} else { 
			print "<font color='red'>Failure</font><br>";
		}
		
	}