Select Code to Download

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

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

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

.= "\x00";

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

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

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