for my $dir (@INC){
    print "$dir\n";
}