#!/usr/bin/perl 
use strict;
use warnings;

use Win32::OLE;
use Win32::OLE::Variant;

Win32::OLE->Initialize(Win32::OLE::COINIT_MULTITHREADED);
my $Agent = Win32::OLE->new('Agent.Control.2');
$Agent->{Connected} = Variant(VT_BOOL, 1);
$Agent->Characters->Load('Merlin','Merlin.acs');
my $Char = $Agent->Characters('Merlin');
$Char->Commands->Add('Exit','E&xit');
$Char->Show;

while(1)
{
  $Char->Speak('Sleeping...');
  sleep(60);
}