You probably meant:

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

You might want to consider running it under use strict and changing it to:

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

Hope this helps...

gav^