my $mode = (stat($file))[2];

##</code><code>##

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