use warnings;
use strict;

my_srand(0);
print int(my_rand(99)) for 0..9;

sub my_srand {
  use Win32::API;
  my $srand = Win32::API::More->new(
    'msvcrt', 'void srand(unsigned int seed)'
  ) or die "Error: ".Win32::FormatMessage(Win32::GetLastError());
  $srand->Call($_[0]);
}

sub my_rand {
  my $rand = Win32::API::More->new(
    'msvcrt', 'int rand()'
  ) or die "Error: ".Win32::FormatMessage(Win32::GetLastError());
  return int(($rand->Call()) * $_[0] / 32767);
}