Select Code to Download

use strict;

...
print "directory\n"  if -d $file;
print "plain file\n" if -f $file;
print "sym link\n"   if -l $file;

use strict;

...

-T  File is an ASCII text file.
-B  File is a "binary" file (opposite of -T).