Select Code to Download

my $private1 = sub { print "Private1\n" };
sub _private2      { print "Private2\n" }
...
    $private1->($self);
    _private2($self);
}