perl Stat-lsMode