I think the easiest solution is to use Net::Pcap to capture all USB traffic. At least from what I understand, Wireshark can nowadays sniff USB traffic, and I presume that this feature comes from the libpcap library which is encapsulated for Perl by Net::Pcap.