die "Too bad!\n" unless @ARGV;
for (shift) {
    if (/\*$/) {
        find { ... }, glob;
    } else {
        die "`$_': not a directory!\n" unless -d;
        my @files=glob "$_/*";
        # ...
    }
}