#!/usr/bin/perl  
use Win32::API;  
my $xy=0;  
my $cc=\$xy;  
Win32::API->Import('MyDLL', 'char* dec(long a,long* b)')or die $^E;  
my $var=dec(4,$cc);  
printf("%s",$var);