readdir returns file names without directory paths. You're probably not in C:/dir, so you need to give your files absolute paths or change to that directory.

use File::Spec;
my @files = map { File::Spec->catfile( 'c:/dir', $_ ) }
    grep { ... } readdir DIR;
[download]