use Shell qw( perl );

use Shell qw( dir );

use Shell qw( copy );

use Shell qw( del );

use Shell qw( cd );
[download]

A use statement is performed once per module, and you pass it a list:

use Shell qw( perl dir copy del cd );
[download]

would be the right idiom. But perl? cd? AFAIK cd is a shell builtin, and perl has chdir.

Probably the Shell->import() method will be invoked multiple times with your multiple use statements (I haven't tried), 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 ) ); }
[download]

but why invoke the same method multiple times with a single element, if you can invoke it once with a list?

But there are far more gotchas in your script, none of those have to do anything with ActiveState. E.g. you should use File::Spec to portably assemble directory and file names into a path.

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}