my $filename = param("incoming");
	my $handle   = upload("incoming");
	$filename =~ s/(?:\\|\/)([^\\\/]+)$/$1/g;
	my $buffer;
	my $_tFileContains = "";
	while (read($handle,$buffer,2048)) {
		$_tFileContains .= $buffer
	}