$adfile = 'banners.dat';
	open(FILE, $adfile) || die "Can't open $adfile";
	$file = <FILE>;
	close(FILE);
	
	@stuff = split(/;/,$file);
	srand(time ^ $$);  
	$choice = rand(@stuff);

	$chosen = @stuff[$choice];
	@part = split(/\|/,$chosen);

	print "Content-type: text/html\n\n";
	print "<font face=\"arial\" size=\"2\"><a href=\"@part[0]\" target=\"_blank\"><img src=\"@part[1]\" width=\"@part[2]\" height=\"@part[3]\" alt=\"@part[4]\" border=\"1\"><br>Please visit my sponosr! </a></font>\n";

##</code><code>##

http://www.whatever.com|whatever.gif|468|60|whatever;http://www.okay.ca|okay.gif|468|60|okay

##</code><code>##

http://www.whatever.com|whatever.gif|468|60|whatever
http://www.okay.ca|okay.gif|468|60|okay