Select Code to Download

use strict;
use warnings;
...
warn "outside";

testsub();

> perl -d d:/tmp/pm/db_demo.pl 

...
 at d:/tmp/pm/db_demo.pl line 10.
    main::testsub() called at d:/tmp/pm/db_demo.pl line 16
  DB<2>