Select Code to Download

my $dir = 'your directory path';
local *DIR;
opendir(DIR, $dir) or die "Failed to open $dir: $!\n";
my @files = readdir(DIR);
print join("\n", @files), "\n";

my $file_name = "pdf_file_s\xa2\xb3.pdf";