Select Code to Download

use warnings;
use strict;
...
  ) or die "Error: ".Win32::FormatMessage(Win32::GetLastError());
  return int(($rand->Call()) * $_[0] / 32767);
}