#!/usr/bin/perl

use strict;
use warnings;
use Win32 ();
use Win32::EventLog;


package Win32::LSA;
use base qw/Win32::API::Interface/;

__PACKAGE__->generate( "Advapi32.dll", "LogonUserA", "PPPIIP", "I", "logon_user" );
__PACKAGE__->generate( "Advapi32.dll", "ImpersonateLoggedOnUser", "I", "I", "impersonate_as" );
__PACKAGE__->generate( "Advapi32.dll", "RevertToSelf", "", "I", "revert" );

1;
package main;

# ...