while (1) { ✓ sleep 10 };
sub check { open (LOG ,'>per.log'); $temp = while (<LOG>);
 if ( $temp ~= /error/ ) { &error } };
sub error { print "\a"; print "I found a error log\n" };