start xinetd service via perl and dbus

use Net::DBus;
use Data::Dumper;

my $bus = Net::DBus->system;

my $service = $bus->get_service("org.freedesktop.systemd1");
my $object = $service->get_object("/org/freedesktop/systemd1");

my $job = eval {$object->StartUnit("xinetd.service", 'fail') };
if ($@)  {
   print Dumper($@);
}
else {
   print Dumper($job);
}
1