Created by www.tryperl.com.

ENV.pl

#Created by tryperl.com
use strict;
use warnings;
use Data::Dumper;

print Dumper( \%ENV );

my @localDirs = split( ':', $ENV{'PATH'} );

foreach my $dir @localDirs {
    opendir (my $odir, $dir);
    while readdir $odir; {
        print "$_\n";
    }
    
}