#!perl
use strict;
use warnings;

use Data::Dumper;
use Win32::OLE;

my $phone = Win32::OLE->new('{FC9E740F-6058-11D1-8C66-0060081841DE}'); # don't ask!

print Dumper($phone);