DBus Perl :(

[RobinVossen]

Hello All,
I am trying to get DBus Working in Perl. And I can't seem to get that special tick.
I can control DBus in C, it took me a while but I got it done now..
I understand the Python Snipers I find however I need it in Perl.

here is the Source Code I wrote/stole..

Greeting.pm

#!/usr/bin/perl -w
package Greeting;
use Net::DBus::Exporter 'test.dbus.perl';
use base 'Net::DBus::Object';

sub new 
{
   my ($class, $service) = @_;
   my $self = $class->SUPER::new($service,'/test/dbus/perl');
   bless $self, $class;
}

dbus_method('SayHello');

sub SayHello
{
   my $self = shift;
   return "VICTORY!";
}

client.pl

#!/usr/bin/perl -w

use Net::DBus;

my $app = Net::DBus->session
	->get_service('test.dbus.perl')
	->get_object(/test/dbus/perl')
;

$app->SayHello();

server.pl

#!/usr/bin/perl -w
use Net::DBus;
use Net::DBus::Reactor;
use Greeting;

my $service = Net::DBus->session->export_service('test.dbus.perl');
my $object = Greeting->new($service);
Net::DBus::Reactor->main->run();

OnExecute

org.freedesktop.DBus.Error.Spawn.ExecFailed: Failed to execute dbus-launch to autolaunch D-Bus session.

I googled for the Error, However I couldn't find anything. So, can anyone help me with this?

[cgrebeld]

Do you have dbus-launch in your path?

[RobinVossen]

I guess not, however I dont have an application called dbus-launch installed on this system either..

Cheers,
Robin