use strict;
use DEBUGGER (
              debug_level => 2,
              );

my $x = 2 * 2;

# will break here if debug level falls between
# 1 and 3 (inclusively).
break 1,3;
my $s = "foobar";

break 5;
print "will break here iff debug level is 5\n";

# break here if $x is less than 3
# and debug_level is set to 2
break_if $x < 5, 2;
print "exiting...\n";