Select Code to Download

opendir DIR, '.';

...
    }
    return( wantarray ? %info : \%info );
}

print "$_->{Title}\n" for @pdf;