$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";