#! perl -slw
use strict;
use Win32;

open LOG, '>', 'c:\Mitel\ACD\service.log' or die;
select LOG;
$|++;

Win32::MsgBox( 'From test.pl at ' . localtime,  0, "test.pl" );

while( sleep 5 ) {
    Win32::MsgBox( 'From test.pl at ' . localtime,  0, "test.pl" );
    print scalar localtime;
}

close LOG;