@se = ('AltaVista', 'Excite', 'Infoseek', 'Lycos');
$search = new WWW::Search($se);

##</code><code>##

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