use WWW::Mechanize;
use Data::Dumper;
use DBI;
...
my $mech = WWW::Mechanize->new(
		stack_depth => 0,
		autocheck   => 0,
		onerror => undef,
		);

$mech->timeout(30);
$mech->agent_alias( 'Windows IE 6' ); 
$mech->max_redirect( 0 );
		$mech->get("http://".$placement_page_url);

...

my @links = $mech->links(); 
foreach $link (@links)
{
...							
print $link->attrs." attrs\n";
%dump = Dumper $link->attrs;
print %dump;
...
}