#!/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);
close (RL);