#!/usr/bin/perl

use warnings;
use diagnostics;
use Device::USB;

$usb = Device::USB->new();
print "1\n";

##</code><code>##

Segmentation fault (core dumped)

##</code><code>##

>> (eval 7)[/usr/local/share/perl5/Inline.pm:199]:4:     $INIT++;
>> (eval 7)[/usr/local/share/perl5/Inline.pm:199]:5:     &init;
>> /usr/local/share/perl5/Inline.pm:209:     local ($/, $") = ("\n", ' '); local ($\, $,);
>> /usr/local/share/perl5/Inline.pm:209:     local ($/, $") = ("\n", ' '); local ($\, $,);
>> /usr/local/share/perl5/Inline.pm:211:     while (my $o = shift(@DATA_OBJS)) {
>> main.pl:7: $usb = Device::USB->new();
>> /root/perl5/lib/perl5/i386-linux-thread-multi/Device/USB.pm:187:     my $class = shift;
>> /root/perl5/lib/perl5/i386-linux-thread-multi/Device/USB.pm:189:     $init_ref->();
>> /root/perl5/lib/perl5/i386-linux-thread-multi/Device/USB.pm:175:     libusb_init();

##</code><code>##

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