#!/usr/bin/perl
my @dirs = split(($^O eq 'MSWin32'?';':':'), $ENV{PATH});
for (0..$#dirs) {
  if (-d $dirs[$_]) {
    print "  ";
  }
  else {
    print "??";
  }
  print (((-d $dirs[$_])?"  ":"??"),(exists $_{$dirs[$_]}?"=":" "),(sprintf "%3d. ",$_+1));
  $_{$dirs[$_]}++;
  print $dirs[$_],"\n";
}