A Perl script for montoring log files