#! /usr/bin/perl

use strict;
use warnings;

open(TAIL,"tail -f /var/log/mail |") or die $!;
while(my $line = <TAIL>){
  print "4\n" if($line =~ /pro/);
}
close TAIL;