printf '
   package cleanlib;
   sub import { @INC = ( ); }
   1
' >cleanlib.pm

perl -Mlib=. -Mcleanlib -Mlib=... ...
[download]