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