in reply to Re: ActivePERL is the devil?
in thread ActivePERL is the devil?

and your code thus is equivalent to
use Shell qw( perl ); BEGIN { Shell->import( qw( dir ) ); } BEGIN { Shell->import( qw( copy ) ); } BEGIN { Shell->import( qw( del ) ); } BEGIN { Shell->import( qw( cd ) ); }
May be worse:
BEGIN { require Shell; Shell->import( qw( perl ) ); } BEGIN { require Shell; Shell->import( qw( dir ) ); } BEGIN { require Shell; Shell->import( qw( copy ) ); } BEGIN { require Shell; Shell->import( qw( del ) ); } BEGIN { require Shell; Shell->import( qw( cd ) ); }
Despite that only the first invocation of require compiles the module, it's still a sequence of invocations on the same function (require) with the same argument (Shell) within inside the very same file.

Open source softwares? Share and enjoy. Make profit from them if you can. Yet, share and enjoy!