USBACCESS_API CUSBaccess * _stdcall	        FCWInitObject(void) ;
	USBACCESS_API void _stdcall			FCWUnInitObject(CUSBaccess *obj) ;
	USBACCESS_API int _stdcall			FCWOpenCleware(CUSBaccess *obj) ;
	USBACCESS_API int _stdcall			FCWCloseCleware(CUSBaccess *obj) ;

##</code><code>##

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