package test_a;

# optionaly; to be set/over-ridden from user code....
$AuxDataFile= "AuxData";
$TmpltFile= "LinuxScript-Text.txt";
$DataCSV  = "LinuxScript-TEST-Data.csv";
$AttachmentFile;
*LogFile;

#################### Subs ###########################
sub SetLog ( $ ){
    *LogFile = @_; #Adv Perl Programming (Rel 1) pg 49
}
sub TestLog {
    printf LogFile "a::TestLog print\n";
}

1;

##</code><code>##

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";