#!/usr/bin/perl

use Win32::API;

my $lpBuffer = "\0" x 64;

my $ZP4StartSession = new Win32::API("ZP4", "ZP4StartSession", [N], P) || die Win32::FormatMessage(Win32::GetLastError);

my $LLHandle = $ZP4StartSession->Call($lpBuffer) || die Win32::FormatMessage(Win32::GetLastError);