use File::stat;
my $mode = stat($file)->mode;