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