Global symbol "$i" requires explicit package name at ./z.pl line 13.
Execution of ./z.pl aborted due to compilation errors.

##</code><code>##

use File::Find;
find(sub { rmdir $_ || unlink $_ }, @ARGV);