use Shell qw( perl ); # { local @ARGV = (...); do $filename; } 
use Shell qw( dir );  # glob() seems enough
use Shell qw( copy ); # File::Copy
use Shell qw( del );  # unlink
use Shell qw( cd );   # chdir