$ perl -e 'print(join $/, @INC),$/'