#!/usr/bin/perl @links = `lynx -dump http://www.2600.com/news/1999/1227-help.html|grep 'http.*css'`; $num_links = $#links; $which_link = rand $num_links; print "Location: $links[$which_link]\n\n"; exit;