package MyLogger::Win32;

use strict;
use warnings;

use all_Win32_stuff;

sub new{
    my ($class) = @_;

    my $self = bless {}, $class;
    $self->{handle} = Win32::EventLog->new("Zaphod");
}

sub log {
      my ($self) = @_;
      my %win;

      $win{'Computer'} = "Eddy";
      $win{'Source'} = "Hard of Gold";
      $win{'Category'} = undef;
      $win{'EventID'} = 42;
      $win{'Data'} = undef;
      $win{'Strings'} = "Dont interrupt me, I computing real earth Tee!"

      $self->{handle}->Report(\%win);
}

...