perl -MScalar::Util -e1

##</code><code>##

perl -MScalar::Util -E'say join q{ }, @INC'