use strict;
use warnings;

opendir my $dir, "." or die "Can not open directory: $!";
while ($_ = readdir $dir) {
    my $mode = (stat $_)[2] >> 15;
    print "$_ : ", $mode ? "file" : "directory", "\n"
}
closedir $dir;