#!usr/bin/perl
use strict; 
use warnings;
use Win32::API;

my $function=Win32::API->Import(
'D:\Cleware\USBaccess.dll', 'int FCWInitObject()',
);
my $return = $function->Call();