#!/usr/bin/perl -w

use LWP::Simple;
use HTML::SimpleLinkExtor;
use Data::Dumper;
use LWP::RobotUA;
use HTTP::Response;

$_="http://www.frozenhosting.com";
my $ua = LWP::RobotUA->new("theusefulbot", "akurtis3 at yahoo.com");
$ua->delay(10/60);
my $content= $ua->get($_);
my $extor = HTML::SimpleLinkExtor->new();
$extor->parse($content);

my @links=$extor->a;
print "start";
foreach $links (@links) {
        
}
print $content;