#!/usr/bin/perl # @(#) graball.pl v1.3 (7/20/96) # Written by Sarang Gupta (sarang@sarangworld.com) open(A,shift);while(){chomp;/\/([^\/]+)$/;system"lynx -source $_ > $1\n"} # Please visit http://www.sarangworld.com/perlscript.php3 for a full list # of my Perl scripts, or http://www.sarangworld.com/ to see my website