my @links = $mech->find_all_links(url_regex => qr/\.pdf/i);
my @urls = map { $_->url_abs } @links;
foreach (my $foo @urls )
{
   my $abs_path = "C:/path";
   $mech->set_download_directory( $abs_path );	
   $mech->get($foo);
}