#!/usr/bin/perl -w
use strict;
use warnings;


sub make_rand {
    my $x = 0;
    return sub {
        return $x++; # not very random
    };
}

my $rng = make_rand();

for my $i (1..4) {
    my $x = $rng->();
    print "$x\n";
}