my $mech = WWW::Mechanize->new();
$mech->get($url);
$mech->save_content( "test.pdf", binary => 1 );