sub file_mode {
    my $filename = shift;
    return -1 unless(-f $filename);
    return(stat($filename))[2];
}

##</code><code>##

  return (-f $filename) ? (stat($filename))[2] : -1