sub my_func {
  my %params = @_;

  print "Message received: " . $params->{message};
  if ($params->{newline}) { print "\n" }
}