use Win32::API;

$panda_init = Win32::API->new("c:\\temp\\panda",
			   "panda_init",
			   [],
			   V);

$panda_init->Call();

$panda_open = Win32::API->new("c:\\temp\\panda",
			      "panda_open",
			      [P, P],
			      P);

$filename = pack("p", "dd.pdf");
$mode = pack("p", "w");

$panda_open->Call($filename, $mode);