#!/usr/bin/perl

use v5.12;
use warnings;
use autodie qw( :all );

my %seen;
my @path=grep { !$seen{$_}++ } split /:/,$ENV{'PATH'};

for my $dirname (@path) {
    opendir(my $dir,$dirname);
    while (readdir $dir) {
        next if -l "$dirname/$_";
        next unless -f -x _;
        (undef,undef,my $mode)=stat _;
        unless (defined $mode) {
            warn "Can't stat $dirname/$_: $!\n";
            next;
        }
        ($mode & 06000) or next;
        printf("%04o %s\n",($mode & 07777),"$dirname/$_");
    }
    closedir $dir;
}