use strict;
use warnings;

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

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

##</code><code>##

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

use Data::Dumper;
use Win32::OLE qw(in valof with);
my $objskype = Win32::OLE->new('SKYPEAPI.Access');
my $ex = $objskype->GetCallList();

foreach my $key ( keys( %$ex)) {
  print( $key, "\n");
}

foreach my $value (in $ex) {
  print "$value->{ID} : $value->{STATUS} : $value->{PSTN_NUMBER}\n";
}

##</code><code>##

skt.pl
Count
Item
1165 : 11 : +647723xxxx
1216 : 7 : +1416778xxxx