同じように相手にメッセージを送ってみる #!/usr/bin/perl use strict; use warnings; use Net::DBus; my $target = "<相手のID>"; my $mesbody = "chat message from SkypeAPITest.pl"; my $bus = Net::DBus->session; my $hal = $bus->get_service("com.Skype.API"); my $manager = $hal->get_object("/com/Skype"); my $res = $manager->Invoke("NAME MYTEST"); print "$res\n"; if($res ne "OK") { print "ERROR: $res\n"; exit(1); } $res = $manage