%EXPORT= (
                -verbose => sub { my $caller= shift; $verbose{$caller}=1; }