# No Errors detected
# Deal with the uploaded file
my $filename = $request->param('file');
my $filehandle = $request->upload( $filename );
while( $filename =~ s/(.+)\\(.+)/$2/gi ) {}
unless( $request->cgi_error )
{
# No errors so far

	if( open( FILE, "c:\\temp\\$filename" ) )
	{
		binmode( FILE );
		binmode( $filehandle );
		while( read( $filehandle, $buffer, BUFFER_SIZE ) ) { print FILE $buffer; }
		$shorttitle = "Success : Upload :";
	}
}