Select Code to Download

use warnings;
use strict;
...

$srand->Call(0);
print $rand->Call()/(1<<15), "\n"; # 0.00115966796875

sub winrand {
    use feature 'state';
...
    $r = ( 214013*$r + 2531011 ) & 0xFFFFFFFF;
    return ($r>>16)&0x7FFF;
}