my $logfile = "logfile";
open( LOG, "<$logfile" ) or die "$logfile: $!";

while (!$end_condition)
{
    while ( my $line = <LOG> ) {
        print $line;
    }
    sleep(1); # do something usefull 
    seek( LOG, 0, 1 );
}
close(LOG);