@files = <*>;
=foreach $file (@files) {
if (-f $file) {
 print "This is a file: " . $file."\n";
 }
 if (-d $file) {
 print "\n\nThis is a directory: " . $file."\n";
 }
 }