use Inline (
    C       => "DATA",
    LIBS    => '-lusb',
    NAME    => 'Device::USB',
    DIRECTORY => 'c:/Perl/site/lib/Device/inline',
);