#!/usr/bin/perl -w $linkfile = "/home/threepts/public_html/yummybanana/scripts/patb2.list"; open (LINKS, "$linkfile"); srand(); # kick rand $nlines=@file=; # inhale file & get # of lines $patbfile = $file[int rand $nlines]; ($pic, $link) = split(/@/, $patbfile); print "Content-type: text/html\n\n"; print ""; print ""; print "

$link"; # print a random line print ""; close (LINKS); exit;