for (@INC) {
    print $_,"\n";
}