sub ApiName {
    return $globalHash{ 'ApiName' }->Call( @_ );
}

##</code><code>##

usw Win32::API;

my $api = Win32::API->new( 'dll', 'api', 'II', 'I' ) or die $^E;

$api->Call( @_ );