#!/usr/bin/perl -d

BEGIN { DB::parse_options("NonStop=1") }   # non-stop mode

sub foo {
    $DB::single = 1;    # break (at next line)
    my $foo = "foo";  
    my $bar = "bar";
}

foo();