#!/usr/bin/perl -w
use strict;
use CGI;
my $query = new CGI;
my $s=$query->param('script');
$s=~s!\/|\\!!g;
print qq(content-type: text/html\n\n);
print qq($s source$s source
);
open(FH,$s) or die;
my $i=1;
while(){
s|<|\<\;|g;
s|>|\>\;|g;
s|\t| |g;
printf "%.2d: $_
",$i;
$i++
}
close(FH);
print qq(
Download It!);
print qq();