foreach my $se (qw(AltaVista Excite Infoseek Lycos)) {
    my $search = new WWW::Search($se);
    # etc