01 #!/usr/local/bin/perl -w
02 use strict;
03 use Net::DBus;
04 
05 my $bus = Net::DBus->system();
06 my $hal = $bus->get_service( "org.freedesktop.Hal" );
07 
08 my $manager = $hal->get_object( 
09   "/org/freedesktop/Hal/Manager", 
10   "org.freedesktop.Hal.Manager" );
11 
12 my $devices = $manager->GetAllDevices();
13 
14 for my $device ( @$devices ) {
15     print "$device\n";
16 }