Select Code to Download

sub function_cat {
  print "cat";
...
sub function_dog {
  print "dog";
}

sub function_x {
  print $x;
}

function_tiger(); # yields "tiger"