print map{ -d $_ ? "DIR  $_\n" : "FILE $_\n" } glob( "/some/dir/*" );