#!/afs/athena/contrib/perl/p

$opt = shift(@ARGV) if ($ARGV[0] eq "-v");
$match = join(" ", @ARGV);

$/ = "\n\n";
open(URLDB, "/afs/sipb/user/mkgray/w4/Wander/data/w4idb");
while(<URLDB>){
    ($keys, $url) = split(/\n/, $_);
    if($keys =~ /$match/i){
	print("$url\n");
	print("     $keys\n") if $opt;
    }
}

sub input {
        local($foo);
        print(">>>");
        $foo = <STDIN>;
        chop($foo);
        $foo;
}