#! /usr/bin/perl
use Win32::API;

# Load the table creator from the dll.
# Some info about the API function:
# C signature: __declspec(dllimport) myTable myTableCreate();
# typedef
# struct myTable { 
# void* opaque;  ///< Opaque pointer to storage
# } myTable;
$pass = 1;
my $CreateTable = new Win32::API("myDll.dll","HANDLE myTableCreate()");
if(not defined $CreateTable) {
        die "Can't import API myTableCreate(): $!\n";
}
$pass = $pass && defined($CreateTable->Call()) == 1;
#Create an empty table.
if($pass) 
{
	$aTable = $CreateTable->Call();
	print("Table Created"); 
}
else
{
die "Cant Create a Table";
}