use strict;
use warnings;

use Win32::OLE qw(in);
.
.
my objskype - Win32::OLE->new('SKYPEAPI.Access'. 'objSkype_');

$objSkype->SendMessage( $targethandle, $message );