#!/usr/bin/perl -0777
#Written by Sarang Gupta (sarang@sarangworld.com)
$a=shift;$a=~s/\\//g;$a=glob($a);$_=`cat $a`;print"Content-type: text/html\n\n"
;while(/<!--#exec cgi="([^"]*)"-->/){$a=`$1`;$a=~s/\n/<br>\n/g;
s/<!--#exec cgi="([^"]*)"-->/$a/}print;

# Please visit http://www.sarangworld.com/perlscript.php3 for a full list
# of my Perl scripts, or http://www.sarangworld.com/ to see my website