package My::Logger;

my $fh = *STDERR;

sub set_handle {
   my ($class, $new_fh) = @_;
   $fh = $new_fh;
}

sub log {
    my $msg = join('', @_);
    $msg =~ s/\n+\z/\n/;
    print $fh $msg;
}

1;