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