#!/usr/bin/perl -w

$linkfile = "/home/threepts/public_html/yummybanana/scripts/patb2.list";

open (LINKS, "$linkfile");
	srand();                        # kick rand
	$nlines=@file=<LINKS>;          # inhale file & get # of lines
	$patbfile = $file[int rand $nlines];
	($pic, $link) = split(/@/, $patbfile);
	print "Content-type: text/html\n\n";
	print "<html><body bgcolor=FFFFFF text=8CD749 link=8CD749 vlink=8CD749 alink=8CD749>";
	print "<font size=2>";
	print "<center><img style=\"border:1px solid #000000;\" src=http://yummybanana.webgoonies.com/images/patb/$pic><br>$link</center>";  # print a random line
	print "</font>";
close (LINKS);

exit;
