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