SOURCE-FILENAME: "src2html.pl"
 

#!/usr/bin/perl

printf "Content-type: text/html\n\n";
printf "<HTML><BODY BGCOLOR=\"#000044\" TEXT=\"#BBBB00\">\n";

$inline=$ENV{QUERY_STRING};
$fnamepos=index($inline,"=")+1;
$fnamelen=length($inline)-$fnamepos;
$fname=substr($inline,$fnamepos,$fnamelen);

$o=0;
for ($i=0;$i<$fnamelen;$i++)
{
 $c=substr($fname,$i,1);
 if ($c eq "+")
   { substr($cname,$o,1," "); }
 elsif ($c eq "%")
 { 
  $num=(substr($fname,$i+1,2));
  $hex=hex($num);
  $val=chr($hex);
  substr($cname,$o,1,$val); 
  $i+=2;
 }
 else { substr($cname,$o,1,$c); }
 $o++;
}

printf "SOURCE-FILENAME: \"$cname\" <BR><BR><BR>";
printf "<FONT SIZE=+1><PRE><XMP>";

$cname="software/$cname";
open(SCRF,$cname) or die "Can´t open $cname $! \n </BODY></HTML> \n"; 

while (defined(my $inline=<SCRF>)) { printf "$inline"; }

printf " /XMP> /PRE></FONT>";    # here you should add the < brackets again !!!
printf "</BODY></HTML> \n\n";