Select Code to Download

"foo_action" => \&foo(),
"bar_action" => \&bar()

sub foo {
   my $self = shift;
   # do stuff
}