#!/usr/bin/perl
{
&WonderFoot;
}
sub WonderFoot
{
$wonderfoot="/home/kootnetc/kootsmusic.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;
|
#!/usr/bin/perl -wT
{
&WonderFoot;
}
sub WonderFoot
{
$wonderfoot="/home/kootnetc/kootsmusic.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;
|
Let's Enjoy Music Together 
@KootsMusic