Select Code to Download

sub DIE { 
  my $i=0; 
...
 
  exit 1; 
}

main::DIE(16) main::foo(19) main::ack(22) main::bar(25) : HI

sub foo { 
        DIE "HI"; 
...
} 
 
bar();

sub DIE {
  my $i=0; 
...

 die $buff;
}