use strict;
use warnings;
use autodie;


my $dirname = "C:/Perl/Test/"; 
opendir my( $dir_handle ), $dirname;
my @file1 = readdir $dir_handle;
foreach my $file1 ( @file1 ) { 
    if ( -f "$dirname$file1" ) { 
        print "$file1\n"; 
    } 
}