#!/usr/bin/perl -w
use strict;
use Win32::OLE;

my ($app)=Win32::OLE->new("WScript.Shell");

$app->LogEvent(4,"You know it man!");

1;