use RecursiveARGV;

##</code><code>##

#!/usr/bin/perl
require RecursiveARGV;

# cleans @ARGV of any switches here,
# leaving only files
GetOpt(...);

# now @ARGV becomes directory-magic
RecursiveARGV->import();

##</code><code>##

------------
:Wq
Not an editor command: Wq