Select Code to Download

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

$DB::debugger_breaks_allowed =1;

...
print "after"; #<-- breaks here

print "later";