sub brew_hot_drink {
  my $ingredients = shift;
  my $water = get_water();
  my $hot = boil($water);
  my $drink = mix($hot,$ingredients);
  return $drink;
}