#!/usr/bin/perl -w
require WWW::Search;

while ($term = <>)
{
    chomp $term;
    
    @se = ('AltaVista, Excite, Infoseek, Lycos');

    foreach $se (@se)
    {
        $search = new WWW::Search('$se');
        $search->native_query(WWW::Search::escape_query($term));
        
        print "\n\nResults from $se :\n\n";
        while ($result = $search->next_result())
        {
            print $result->url, "\n";
        }
    }
}