Select Code to Download

sub hello { 
  return "Hello"; 
...
  my ($foo, $bar) = @_; 
  print "$foo $bar\n"; 
}

 
use strict; 
...
} 
 
$sub{'foo_bar'}->($sub{'hello'}->(), $sub{'world'}->()),"\n";