use feature qw/ say /;
use strict;
use warnings;
use autodie;

my $dirname = "C:/Perl/Test/"; 
opendir my( $dir_handle ), $dirname;

my @files = grep { -f "$dirname$_" } readdir $dir_handle;

say for @files;