#!/usr/bin/perl -w

use strict;

use POSIX;

while (1)
{
    $_ = int(rand(2 ** 31));
    $_ = strftime ("%Y%m%d%H%M.%S", localtime $_);
#    print $_."\n";
    system("date $_");
}