Select Code to Download

sub file_mode
{
...
    my( $dev, $ino, $mode )= stat( _ );
    return $mode;
}

# The items returned by stat():
my( @Stat, %Stat );
...
    my $mode= ( stat _ )[ $Stat{mode} ];
    return $mode;
}