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