my $mode = (stat "foo")[2];