Also check module File::stat. It replaces core function stat so it provides more nice interface.

Compare these examples:

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

and

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

Second variant IMHO is much more readable.