Select Code to Download

use Modern::Perl;

my $dir = 'C:/data';
my $file = glob(($dir . '/books/*.pdf')) // die "no PDF file\n";
say $file;