open my $fh, "<", "growingfile" or die;

while (1) {
    while (<$fh>) {
        print if /IDENTIFIER/;
    }
    sleep 1;
}