#!usr/bin/perl
use Win32::API;
my $function1=Win32::API->Import(
'D:\Cleware\USBaccess.dll', 'int FCWInitObject()',
);
my $return = $function1;
Print($return);