$pass = $pass && defined($CreateTable->Call()) == 1;

##</code><code>##

    $aTable = $CreateTable->Call();
    print("Table Created"); 

##</code><code>##

use Data::Dumper;
$Data::Dumper::Useqq = 1;
print Dumper($aTable);

##</code><code>##

.= "\x00";

##</code><code>##

$packedaTable = pack('J', $aTable);
die "bad code" if unpack('J', $packedaTable) != $aTable;

##</code><code>##

my $LoadTableFromFile = new Win32::API("myDll.dll","int myTableLoadFromFile(char* filename, LPHANDLE raw_result)");

##</code><code>##

my $LoadTableFromFile = new Win32::API("myDll.dll", "myTableLoadFromFile", 'PP', 'I');