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

# pumps the file for testing

$| = 1;

open (ZH, "> z.log") or die "$_\n";

# autoflush ZH
my $ofh = select(ZH);
$|   = 1;
select($ofh);

while(1){
 print ZH time."\n";
 print '#'; #action indicator
 select(undef,undef,undef,.1);
}