Select Code to Download

a=shift;$a=~s/\\//g;$a=glob($a);$_=`cat $a`;print"Content-type: text/h
+tml\n\n"
;while(/<!--#exec cgi="([^"]*)"-->/){$a=`$1`;$a=~s/\n/<br>\n/g;
s/<!--#exec cgi="([^"]*)"-->/$a/}print;