The following works fine if you only want to look 1 level beneath the directory, ie., no recursion of sub-directories:

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;
[download]

If you want to recurse the sub-directories:

use strict;
use warnings;
use File::Find;

find(\&wanted, "L:/Perl");

sub wanted
{
    return if substr($_, 0, 1) eq '.';

    my $path = "$File::Find::dir/$_";
    my $mode = (stat $path)[2] >> 15;

    print "$path is ", $mode ? "file" : "dir", "\n";
}
[download]