#!/usr/local/bin/perl -w
###########################################
# hal-status -- Get HAL (Hardware Abstraction
#               Layer) status via D-Bus
# Mike Schilli, 2010 (m@perlmeister.com)
###########################################
use strict;
use Net::DBus;

my $bus = Net::DBus->system();
my $hal = $bus->get_service( "org.freedesktop.Hal" );

my $manager = $hal->get_object( 
  "/org/freedesktop/Hal/Manager", 
  "org.freedesktop.Hal.Manager" );

my $devices = $manager->GetAllDevices();

for my $device ( @$devices ) {
    print "$device\n";
}