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;