Select Code to Download

use Devel::Peek;

sub sub1(*) {
...
sub1 Bareword;
sub3 Bareword;
sub2(@{[Bareword]});