#!/usr/bin/perl

# trail -- like tail -f, but with flushing

$| = 1;

$FH = shift || die "need arg";
open (FH) || die "can't open $FH: $!";
if ( ($end = -s(FH)) > 200) {
    $end -= 200;
    seek(FH, $end, 0);
} 
<FH>;
for (;;) {
    while (<FH>) { print } 
    sleep 1;
    seek(FH, 0, 1);
}