use Modern::Perl;

my $dirname = 'c:/data/eps';
opendir( DIR, $dirname );
my @files = readdir(DIR);
foreach my $file (@files) {
    my $file_path = "$dirname/$file";
    say "File path: $file_path";
}
closedir DIR;


##</code><code>##

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