Select Code to Download

use Fcntl q' :mode ';
use Win32::Unicode::Native;
...
       = stat($filename);

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

#!/usr/bin/perl --
use strict; use warnings;
...
  bless([3, 0, 33206, 1, 0, 0, 3, 444, 1344244390, 1344244390, 1344244
+307, "", ""], "File::stat"),
  { isdir => "", isfile => 1 },
)