my $logger = sub {
  my $msg = shift;
  log_to_handle($MYHANDLE, $msg);
};