I have this code: 
use File::Tail;  
$|++; 
$name="C:\\users\\Mizo\\desktop\\log.txt; 
 
$file=File::Tail->new(name=>$name, maxinterval=>1,interval=>1, adjustafter=>1);  
while (defined($line=$file->read)) { 
if ($line=~/^Request:.*rules\.txt/i){ 
print "$line"; 
} 
}