#!/usr/bin/perl
$|= 1;
while(1){
print time, "\n";
sleep 1;
}