sub dbbreak {
   $DB::single = $DB::my_single_breaks_allowed;
}

##</code><code>##

$DB::debugger_breaks_allowed =1;


sub break_db {
   $DB::single = $DB::debugger_breaks_allowed;
#   print "inside";
}


print "before";

break_db();
print "after"; #<-- breaks here

print "later";