#!/usr/bin/perl

$filename = shift or die "usage: show_logfile.pl <filename>";

open IN, "<$filename";

while(1) {
    
    $line = <IN>;

    print $line;
    exit if $line =~ /Test DONE/;

    if (eof IN) {
	sleep 1;

	seek(IN, 0, 1);
    }
}

close IN;