#!/usr/bin/perl -w

use HTML::Parser;
use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
$p = HTML::Parser->new();
@sites="http://www.frozenhosting.com";
for( $i=1; $i<100000; $i++)  {

$mech->get( $sites[$i] );
$mech->content()=$html;
$mech->find_all_links();
$link->url_abs()=@sites;
open(FILE,">/crawled/$i.txt");
$p->parse($html);
print FILE "$sites[$i]\n";
print FILE "$html";
close(FILE);

}