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

my @files = glob '*';;
my $file = $files[ rand @files ];

open RND, '<', $file or die $!;
my $slurp = do{ local $/; <RND> };
close RND;

my $seed = unpack 'N', substr $slurp, rand( length $slurp - 4 ), 4;

srand $seed;

print rand for 1 .. 100;