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