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

# datastream.pl - Print local time every three seconds.

$| = 1; # unbuffered STDOUT

while ( 1 ) {
    print scalar(localtime), "\n";
    sleep 3;
}