Select Code to Download

my @callbacks = (
  sub { print "one\n" },
...
print "@callbacks\n";
for (@callbacks) { $_->() }
print "@callbacks\n";