sub _print {
  print $msg, @_;
  print LOG $msg, @_;
}

_print("hello");
_print("world");