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

##</code><code>##

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"; 
    } 
}

##</code><code>##

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;