Select Code to Download

my $awesome = awesome();
print "still tickin'\n" while $awesome->();
...
);

$code_table{action1}->();  # also awesome

  my ($c,$d); my ($c,d) = (4,5); # ...maybe we can live without the fi
+rst my?