use CGI;
my $q=CGI->new();
$file_loc="$sorc"; 
$whattoread = fopen($file_loc, "r"); 
$file_contents=fread($whattoread, filesize($file_loc)); 
fclose($whattoread); 
print $q->header();
print $q->pre($q->escapeHTML($file_contents));