Select Code to Download

use Modern::Perl;

my $dirname = 'c:/data/eps';
...
    say "File path: $file_path";
}
closedir DIR;

File path: c:/data/eps/.
File path: c:/data/eps/..
File path: c:/data/eps/agrafort.jpg
...
File path: c:/data/eps/ARF.jpg
File path: c:/data/eps/ARF.png
...