Help for this page
sub file_mode { my $filename = shift; return -1 unless(-f $filename); return(stat($filename))[2]; }
return (-f $filename) ? (stat($filename))[2] : -1