use strict;
use warnings;
use v5.10;
use Win32::API;


Win32::API->Import('AdsDll.dll', 'LONG AdsGetDllVersion()') or die "$!";

my $pt = AdsGetDllVersion() or die "AdsGetDllVersion failed: $^E";
say $pt;

####Ergebnis seitens DLL Codiert
123456