Select Code to Download

sub call_twice {
    my $func = shift;
    &$func("first");
...
call_twice(\&foo);

call_twice(sub { print "bar: @_\n" });