@EXPORT_FAIL = qw(verbose);	# hook to enable verbose mode
# if the caller specifies verbose usage 
#("perl -MCarp=verbose script.pl")
# then the following method will be called 
# by the Exporter which knows
# to do this thanks to @EXPORT_FAIL, above.  
#$_[1] will contain the word
# 'verbose'.
sub export_fail {
    shift;
    $Verbose = shift if $_[0] eq 'verbose';
    return @_;
}