use Carp 'clue';
$::DEBUG = 1; # to enable Clueing.
...
clue 'scalar';

##</code><code>##

use vars qw/$DEBUG/;

##</code><code>##


73:-+	 @EXPORT_OK = qw(cluck verbose clue);
123 +	sub clue	{ warn longmess	 @_ if $::DEBUG; }