Select Code to Download

#!/usr/bin/perl -w
BEGIN { DB::parse_options("NonStop=1"); }
# script here
$a = [1,2,3];
DB::parse_options("NonStop=0");

$ ./dbg
Default die handler restored.
...
   1  2
   2  3
  DB<2>