#!/usr/bin/perl -w

use strict;
use warnings;

my $S = 7379.74575;    # Seed
my $A = 171.379999;    # Multiplier
my $B = 556.625571;    # Offset
my $C = 3799.197357;   # Mod

# Generate random numbers between $MIN and $MAX:
my $MIN = 0;
my $MAX = 80;
my $myRandomInt;

for (my $i = 0; $i < 130; $i++)
{
  $S = FMOD($S * $A + $B, $C);
  $myRandomInt = int($S % ($MAX - $MIN) + $MIN);
  print $myRandomInt, "\t";
}
exit;

# Usage: NUMBER = FMOD(DIVIDEND, DIVISOR)
sub FMOD { return $_[0] - int($_[0] / $_[1]) * $_[1]; }