#!/usr/local/bin/perl -w
use strict;
use IO::File;
my $fh = new IO::File;
$fh->open(">> /tmp/neal/log.txt");
$fh->autoflush();
foreach(0 .. 9) {
  print $fh "Test $_\n";
  sleep(1);
}
$fh->close;