#!/usr/bin/perl -w
 
use strict;
 
while( 1 ) {
        my $file = shift || last;
        open TAIL, "tail -1 $file|" or die "can't do tail -1 $file:$!\n";
        my $line = <TAIL>;
        print $line;
        close TAIL;
}