http://qs321.pair.com?node_id=393136

#!/usr/bin/perl -w use strict; use WWW::Mechanize; use HTML::TokeParser; my $agent = WWW::Mechanize->new(); $agent->redirect_ok(); my @url = @_; my @result; foreach(@url){ check($_); push @result => $status; } sub check{ $agent->agent_alias("Windows IE 6"); $agent->get($url); my $loc = $agent->base(); my $status = $agent->status(); } ___END___