#!/usr/bin/perl

while (1) {
  srand (time); print time, " ", int(rand(4)), "\n"; sleep 1;
}