Select Code to Download

perl -Mdiagnostics=t-,-w badly_behaved_script

use Devel::Verbose;

...
sub will_die {
  die("something awful");
}