#!/usr/bin/perl
{
&WonderFoot;
}
sub WonderFoot
{
$wonderfoot="/home/kootnetc/pageweb.com/cgi-bin/sidemenu.txt";
open (FOOT,$wonderfoot) || die "can't open $wonderfeet";
$wonderfoot="";
while (){$wonderfoot .=$_;}
close(FOOT);
print "Content-type: text/html\n\n";
print "$wonderfoot";
}
1;
|
Providing web site hosting & complete eCommerce solutions since 1995.
PageWeb.com specializes in assisting businesses & individuals establish a presence on the world wide web.
#!/usr/bin/perl -wT
{
&WonderFoot;
}
sub WonderFoot
{
$wonderfoot="/home/kootnetc/pageweb.com/cgi-bin/copyright.txt";
open (FOOT,$wonderfoot) || die "can't open $wonderfeet";
$wonderfoot="";
while (){$wonderfoot .=$_;}
close(FOOT);
print "Content-type: text/html\n\n";
print "$wonderfoot";
}
1;
|
