my $file = "foo";

use Stat::lsMode;
my $mode = file_mode($file);