perl -le 'BEGIN { push @INC,"a"; } print for @INC'