#!/usr/bin/perl
$naptime = 20;
$telcofile="logilestest";

open (LOGFILE, $telcofile) or die "can't open $telcofile: $!";
for (;;) {
    for ($curpos = tell(LOGFILE); <LOGFILE>; $curpos =      tell(LOGFILE)) {
    print "Got Line!: $_";
    }
    sleep $naptime;
    seek(LOGFILE, $curpos, 0);  # seek to where we had been
    exit if (stat(LOGFILE))[3] == 0
}
close(LOGFILE) or die "can't close $telcofile: $!";
print "Exiting...\n";