sub query_users { my ( $self, $filename ) = @_; my $func = import_api_ex( 'advapi32', 'DWORD QueryUsersOnEncryptedFile(LPCWSTR lpFileName, LPENCRYPTION_CERTIFICATE_HASH_LIST* pUsers)' ); die "Could not import API QueryUsersOnEncryptedFile: $!" unless defined $func; }