#!/usr/bin/perl
require RecursiveARGV;

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

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