Perl: Tailing a file

seek() can remove the end-of-file marker:

while (1) {
    while () {
        # do something
    }
    sleep $for_a_while;
    seek( FILE, 0, 1 );
}