Select Code to Download

my $mech = WWW::Mechanize->new( autocheck => 1 );
$mech->get("http://www.somesite.com/");
...
    $art{$1} = 1;
}
print keys %art;