#!/usr/bin/perl -slw
#use strict;
#use warnings;
use Win32;
use Win32::API;
use Win32::API::Callback;
use Win32::API::Test;

my $num;
my $fun = Win32::API->new('Test.dll','char sum_char(char a,char b,char c)') or die $^E;
print "$fun\n";

my $character = chr(49);
print "$character\n";
my $character1 = chr(50);
print "$character1\n";
$num = $fun->Call($character,$character1);
print "$num\n";