print ("Content-type: text/html\n\n");

($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time - 10700);

#format time option 1
if ($TimeFormat eq "24HR") {
@timearray = split(/ /, $theTime);
chomp($timearray[1]);
($gethour, $getmin) = split(/:/, $timearray[0]);

if ($timearray[1] eq "PM") {
if ($gethour < 12) {
$gethour = ($gethour + 12);
}
}

if ($AMpm eq "AM") {
if ($gethour == 12) {
$gethour = "0";
}
}
$gethour = sprintf ("%2d", $gethour);
$gethour =~tr/ /0/;
$getmin = sprintf ("%2d", $getmin);
$getmin =~tr/ /0/;

$FormatTime = "$gethour:$getmin";
} else {
$FormatTime = "$theTime";
}

if ($Choice eq "1")
{
$display = "<b>$day: $month/$date/$year</b>";
}
elsif ($Choice eq "2")
{
$display = "<i>$month/$date/$year-$day</i>";
}
elsif ($Choice eq "3")
{
$display = "<b><font color=\"$color\">$day: $month/$date/$year</font></b>>";
}
open (DAT,">time.dat");
print DAT "$display\n";
close(DAT);
print "$display";

#!/usr/bin/perl
# <!--#exec cgi="/cgi-bin/ads.cgi" -->

open (FILE, "</home/find/private/ads.dat");
@LINES=<FILE>;
close(FILE);
srand;

print "Content-type: text/html\n\n$LINES[int rand(@LINES)]\n";

<A HREF="http://www.eads.com/adserve/adserve.dll/link?GB03747,0,0"><IMG BORDER=0 SRC="http://www.eads.com/adserve/adserve.dll/banner?GB03747,0,0" HEIGHT=55 WIDTH=460 ALT="Click Here to Visit Our Sponsor"></A>
<A HREF="http://www.eads.com/adserve/adserve.dll/link?GB03747,0,1"><IMG BORDER=0 SRC="http://www.eads.com/adserve/adserve.dll/banner?GB03747,0,1" HEIGHT=55 WIDTH=460 ALT="Click Here to Visit Our Sponsor"></A>
<A HREF="http://www.eads.com/adserve/adserve.dll/link?GB03747,0,2"><IMG BORDER=0 SRC="http://www.eads.com/adserve/adserve.dll/banner?GB03747,0,2" HEIGHT=55 WIDTH=460 ALT="Click Here to Visit Our Sponsor"></A>
<A HREF="http://www.eads.com/adserve/adserve.dll/link?GB03747,0,3"><IMG BORDER=0 SRC="http://www.eads.com/adserve/adserve.dll/banner?GB03747,0,3" HEIGHT=55 WIDTH=460 ALT="Click Here to Visit Our Sponsor"></A>
<A HREF="http://www.eads.com/adserve/adserve.dll/link?GB03747,0,4"><IMG BORDER=0 SRC="http://www.eads.com/adserve/adserve.dll/banner?GB03747,0,4" HEIGHT=55 WIDTH=460 ALT="Click Here to Visit Our Sponsor"></A>

#!/usr/bin/perl

$html = qq~
Thank you for submitting your Ads!
~;

print "Content-Type: text/html\n\n";

use CGI;
$in = new CGI;
$URL = $in->param('URL');
$Alt = $in->param('Alt');
$Image = $in->param('Image');

open (ADS,">>/home/find/private/test/ads.dat");
print ADS "<a href=\"$URL\"><img alt=\"$Alt\" border=0 src=\"$Image\"></a>\n";
close(ADS);
print "$html";

/cgi-bin/script.cgi?URL=www.yahoo.com&Alt=Yahoo&Image=www.yahoo.com/yahoo.gif