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

##

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 $_;