use strict;
use WildcardArgs;

printf("***********\n");

handlearg($_, sub { printf("file: %s\n", @_); } ) for @ARGV;

printf("-----------\n");

handlearg($_, sub { printf("rfile: %s\n", @_); }, recurse=>1 ) for @ARGV;

printf("============\n");

handlearg($_, sub { printf("dfile: %s\n", @_); }, recurse=>1, dirfilter=>sub { $_[0] !~ m{/\.svn} } ) for @ARGV;