##
my $a= shift @ARGV;
$a =~ s#\\#/#g;
$a= glob($a);
$_= `cat $a`;
####
$_= do { local($/); <> };
####
print "Content-type: text/html\n\n";
while( // ) {
my $a= `$1`;
$a =~ s/\n/
\n/g;
s//$a/
}
print;
####
while( $_ =~ // ) {
my $a= `$1`;
$a =~ s/\n/
\n/g;
$_ =~ s//$a/;
}
print $_;