#!/usr/bin/perl
for (@INC) {
  $d{$_} ||= do {
    print "$_\n" unless $_ eq '.'; 1
  }
}