use strict;
use warnings;
use HTML::Parser;
use WWW::Mechanize;

my $mech = WWW::Mechanize->new();
my $p = HTML::Parser->new();
my @sites = ( 'http://www.frozenhosting.com' );

for my $site (@sites) {
    $mech->get($site);

    my $html = $mech->content();
    my @links = $mech->find_all_links();

    $p->parse($html);

    ... etc ...
}