sub download()
{
    my $doc = shift @_;

    my $mech = WWW::Mechanize -> new( onerror => undef );
        
    return unless defined( $mech -> get( $doc ) );
    
    my $link = $mech -> find_link( url_regex => qr/\.pdf/ );
    return unless defined( $link );
    
    $link = $link -> url_abs;
    return unless ( $mech -> get ( $link ) );   # This is the GET operation which fails.

    my $name = $1 if $link =~/.+\/(.+\.pdf)/;    
    $mech -> save_content(  $name );
}