#! perl -slw
use strict;
use Time::HiRes qw[ time ];
use Math::Random::MT qw[ rand srand ];

## Modified to correct stupidity of using the whole seconds
## instead of the factional seconds as intended.
srand( 10000 * ( time() - int( time() ) ) );

my $stop = time() + 3;
my $x = rand() while time() < $stop;

## Ready to rumble. 
print rand();