my (
		$fil, $bts, $bfr, $dta, $tru,
	);
	$fil	= $cgi->param('file');
	while ($bts = read($fil, $bfr, 1024) || croak "Oops! $!") {
		$dta	.= $bfr;
	}
	$hdr	=  $cgi->header({type=>"text/html"});
	$cnt	.= $cgi->start_html();
	$cnt	.= $cgi->p("Here's the data: ");
	$cnt	.= $dta;
	$cnt	.= $cgi->end_html();
	print $hdr, $cnt;
	exit 0;