my $LoadTableFromFile = new Win32::API("myDll.dll","int myTableLoadFromFile(char* filename, LPHANDLE raw_result)");
if(not defined $LoadTableFromFile) {
        die "Can't import API HANDLELoadFromFile(): $!\n";
 }
my $pathTable = 'C:/Temp/Requests/TestTable.TBL';
$pathTable = pack('Z',$pathTable);
$pass = 1;
$pass = $pass && defined($LoadTableFromFile->Call($pathTable,$aTable)) == 1;
if($pass)
{
	my $isLoaded = $LoadTableFromFile->Call($pathTable,$aTable);
	print("Table loaded");
}
else
{
	die "Can't load the table from the file $pathTable";
}