use test_a;

open LOGF, ">log.txt";
$|=1;

#*test_a::LogFile =*LOGF ;
test_a::SetLog (*LOGF) ;

printf LOGF "Run started\n"; 
test_a::TestLog();
printf LOGF "Run ended\n";