#!/usr/bin/perl
use Sys::Virt;
my $conn = Sys::Virt->new();
my @nodelist = $conn->list_all_node_devices();
foreach my $dev (@nodelist){
    my $parent = $dev->get_parent();
    printf "%s: < %s\n", $dev->get_name(), $parent;
}