use strict;
use File::Spec;
use File::Basename 'dirname';
use Log::Log4perl qw(:easy);
use WWW::Mechanize::Chrome;


my $url = 'https://reporter.nih.gov/project-details/11011199';

my $mech = WWW::Mechanize::Chrome->new(
    headless => 1, # otherwise, PDF printing will not work
);

print "Loading $url";
$mech->get($url);

sleep 5;

my $fn= 'screen.pdf';
my $page_pdf = $mech->content_as_pdf(
    filename => $fn,
);
print "\nSaved $url as $fn\n";