use strict;
use warnings;
use Device::USB;

my $usb = Device::USB->new();

foreach my $bus ($usb->list_busses())
  {
  print $bus->dirname(), ":\n";
  foreach my $dev ($bus->devices())
    {
    print "     ", $dev->filename(), "\n";
    }
  }