sub dbg {
  my ($self,$msg) = @_;
  return if (! $self->{_debug});
  print STDERR "[DEBUG] : $msg\n";
}

##</code><code>##

sub debug {
  my ($self,$val) = @_;
  $self->{_debug} = $val if (defined $val);
  $self->{_debug};
}

##</code><code>##

sub dbg {
  my $msg = shift;
  print "[DEBUG] : $msg\n" if ($main::DEBUG);
}