perl script 관련 질문있습니다.

perl로 로그 파일을 분석하는 툴을 만들고 있습니다. 로그 파일을 열어서 이미 쓰여진 로그를 분석하는 것은 쉬운데, 로그 파일에 무언가가 쓰여지는 것을 탐지해서 추가된 부분에 대해서 분석을 해주는 툴은 어떻게 만들어야 할 지 감이 안오네요. 예를 들자면 제가 만든 것은 다음과 같습니다.

#!usr/bin/perl

open(FD, "./Logfile")||die "open "./Logfile" fail\n";
while()
{
if($_ =~ /Warning/)
{
print " Warning occur!! \n";
}
}
close(FD);

1초마다 한 번씩 로그 파일을 열어서 실행해주도록 한다면 첫번째 Warning이 뜨면 알려주겠지만 성능상 무용지물에 가깝겠네요 --; Logfile에 write되는 문자열들을 추적하고 있다가 "Warning"이라는 문자열이 검색되면 알려주는 script는 어떻게 만들 수 있을까요?