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;