#!/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";
}