# Load the function. my $LoadTableFromFile = new Win32::API("myDll.dll","myTableLoadFromFil +e", 'PP', 'I', '_cdecl'); #### my $pathATable = 'C:/Temp/Requests/testTable.TBL'; #### my $pathATable = 'C:\Temp\Requests\testTable.TBL'; #no ""s #### # pack the table. my $packedaTable = pack('J',$aTable); print Dumper($packedaTable); if(unpack('J',$packedaTable) == $aTable) {print "I know how to pack this table.\n";} else {die "I dont know how to pack this table";} #### # pack the table. my $packedaTable = pack('J',$aTable); print Dumper($packedaTable); if(unpack('J',$packedaTable) == $aTable) {print "I know how to pack this table.\n";} else {die "I dont know how to pack this table";} $packedaTable .= "\x00" x 100000000; #100MB allocation