my $usb_get_busses = Win32::API->new("libusb0", "int usb_get_busses()") or die $^E;  
my $pt = $usb_get_busses->Call;

print Dumper ReadMemory($pt, 14);