perl Stat-lsMode Stat::lsMode