Win32::API::parse_prototype: WARNING unknown parameter type 'PVOID' at C:/Strawberry32/perl/vendor/lib/Win32/API.pm line  568.
Win32::API::parse_prototype: WARNING unknown parameter type 'ULONG' at C:/Strawberry32/perl/vendor/lib/Win32/API.pm line  568.
Win32::API::parse_prototype: WARNING unknown output parameter type 'INT' at C:/Strawberry32/perl/vendor/lib/Win32/API.pm  line 600.
Argument "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0..." isn't numeric in subroutine entry at C:/Strawberry32/perl/vendor/lib/Crypt/Random/Seed.pm line 247.

##</code><code>##

my $rtlgenrand = Win32::API->new( 'advapi32', <<'_RTLGENRANDOM_PROTO_');
INT SystemFunction036(
  PVOID RandomBuffer,
  ULONG RandomBufferLength
)
_RTLGENRANDOM_PROTO_
   return unless defined $rtlgenrand;
   return ('RtlGenRand',
     sub {
        my $nbytes = shift;
        my $buffer = chr(0) x $nbytes;
        my $result = $rtlgenrand->Call($buffer, $nbytes); # <= 247 

##</code><code>##

		open my $fh, "<", $file or die "can't open $file";
		$/ = undef;
		my $key_string = <$fh>;
		close $fh;