#!/ust/bin/perl -w                                                                       
use strict;                                                                     
use LWP::Simple;                                                                
my $base = 'http://www.dhalighting.com/gobofind.php3?searchStr=';               

foreach (@ARGV) {                                                       
    get($base . $_) =~ m{Gobo $_<br>(.*?)</font>} && print "$_\t$1\n";          
    } 

