The wordy approach

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

Less wordy

#!/usr/bin/perl --
use strict; use warnings;
use Data::Dump;
use File::stat();
use Win32::Unicode::Native; # stat is statW, open is openW, ...

for my $filename ( @ARGV ){
    my $stat_obj = File::stat::populate( stat( $filename ) ); 
    dd $filename, $stat_obj, { isdir => -d $stat_obj, isfile => -f $st
+at_obj };
}

__END__
$ perl win32.unicode.stat.utf8.pl . win32.unicode.stat.utf8.pl
(
  ".",
  bless([3, 0, 16895, 1, 0, 0, 3, 0, 1344244307, 1344244307, 115650180
+3, "", ""], "File::stat"),
  { isdir => 1, isfile => "" },
)
(
  "win32.unicode.stat.utf8.pl",
  bless([3, 0, 33206, 1, 0, 0, 3, 444, 1344244390, 1344244390, 1344244
+307, "", ""], "File::stat"),
  { isdir => "", isfile => 1 },
)
[download]