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