use Fcntl q' :mode ';
use Win32::Unicode::Native;
use Data::Dump;

my $filename = shift;
my @f = my($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
   $atime,$mtime,$ctime,$blksize,$blocks)
       = stat($filename);

dd \@f, S_ISDIR( $mode ), S_ISREG($mode);