Help for this page
file = "D:/perl/02.log";
open (FH, "<", $file) or die "cant open file";
if (/2 failed/)