#!/usr/bin/perl
#%% Script lister - prints text file given as a parameter | GEN | --
#____________________________________________________________________
$|=1;

print "content-type: text/plain \n\n";
$script=$ENV{'QUERY_STRING'} || $0;

open (SCR, $script) || die "$0: Can't open script file $script $!";
for (<SCR>) { print; }