foreach my $INC_i ( @INC ) {
    print "$INC_i\n" ;
  }