my $lpBuffer= "\0" x 64;
my $bufAddr= unpack "L", pack "p", $lpBuffer;
#...
... $ZP4StartSession->Call( $bufAddr ) ...