1
2

#use Data::Dumper;
#print  Dumper $usb->get_busses;

Quote

---------- Perl ----------
$VAR1 = bless( {
'location' => 0,
'dirname' => 'bus-0',
'devices' => []
}, 'Device::USB::Bus' );
$VAR2 = bless( {
'location' => 1,
'dirname' => 'bus-1',
'devices' => []
}, 'Device::USB::Bus' );
$VAR3 = bless( {
'location' => 2,
'dirname' => 'bus-2',
'devices' => []
}, 'Device::USB::Bus' );
$VAR4 = bless( {
'location' => 3,
'dirname' => 'bus-3',
'devices' => []
}, 'Device::USB::Bus' );
$VAR5 = bless( {
'location' => 4,
'dirname' => 'bus-4',
'devices' => []
}, 'Device::USB::Bus' );
$VAR6 = bless( {
'location' => 5,
'dirname' => 'bus-5',
'devices' => []
}, 'Device::USB::Bus' );
found 6 busses

Output completed (0 sec consumed)