Begin new script
#------------------------------------------------------------------------

use Win32::OLE;

$b = Win32::OLE->new('imacros') or die "Iopus could not be started by Win32:OLE\n";
$b->{Visible} = 1;
$b->iimInit();

#Calling an IOPUS macro ie;yahoo.iim . Write a Simple iim script to goto www.yahoo.com
my $macro = "yahoo";

$b->iimPlay($macro);
&err ();
$b->iimExit();

########################################################################
# Get the last message reported from Iopus upon macro completion status#
########################################################################
sub err {
   $lastMessage = $b->iimGetLastMessage();
       if ($lastMessage =~ /Macro completed/) {
           print("Success <$macro> $lastMessage\n");
           #write a logger here for Success $lastMessage
       }
        else{
             print("Failure <$macro> $lastMessage\n");
             #write a logger here for Failure $lastMessage
            }
}

#___________________________________________________________________________
_
End New Script