use Win32::API; $function = Win32::API->new( 'C:\NLSClientLibrary\x86\NLSClientLibrary.dll', 'void XYZDecrypt(char *value,char *key, BSTR *encrypted)', ); print $function->Call('','8B3A06617FEC4276A5711FBA4861B467', '[000001]C0808FC9B3062D91E7B9B1D9A7B79216' );