Perl DBus USB Monitor Sample

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

my $bus = Net::DBus->system;
my $service = $bus->get_service ( 'org.freedesktop.Hal' );
my $object = $service->get_object ( '/org/freedesktop/Hal/Manager' , 'org.freedesktop.Hal.Manager' );

print "Monitoring ..\n";

$object->connect_to_signal ( "DeviceAdded" , sub {
        my ($infos) = @_;
        print "Added: $infos\n";
    });
$object->connect_to_signal ( "DeviceRemoved" , sub {
        my ($infos) = @_;
        print "Removed: $infos\n";
    });

my $reactor = Net::DBus::Reactor->main();
$reactor->run();