use strict;
use warnings;

open(my $fh, '<', 'test.dat') or die "test.dat: $!";

while(1) {
    my $line = <$fh>;
    if(defined($line)) {
        print "$line";
    } else {
        sleep(10);
    }
}
close($fh);