#!/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___
[download]