#!/usr/bin/perl
open(TL,">test.txt");
print TL ("error");
close (TL);
open(RL,"test.txt");
 @test = <RL>;
$error = grep(/error/,@test);
printf ("ERROR %d ",$error);