use Win32::OLE;
$obj = Win32::OLE->new("Logger") or die;
$obj->Output("Goodbye cruel world");