#!/usr/bin/perl
#This is a text file containing all your trade partners
################################################## ############################
$trade = "database.txt";
# Done
################################################## ############################
open (LINKS, "$trade");
srand();
$nlines=@file=<LINKS>;
print "Location: $file[int rand $nlines]\n\n";
close (LINKS);
exit;
be sure to grab my free hosted sponser galleries
http://www.playascash.com/hosted.htm 