$Storable::forgive_me = 1;

##</code><code>##

Package DebugMe;

use vars qw( $dl ); # debug level

sub debug {
  use Carp;
  use Data::Dumper;
  $dl |= shift;
}

# so the usage would be this:

DebugMe::debug( 1 ); # change debugging level to 1
DebugMe::debug( 2 ); # change degbugging level to 2