package License; use strict; no strict "refs"; my $LOGFH = undef; my $writelog = undef; use diagConfig; #$sourcepath, %files, trimwhitespace, cleanupWincuri, $WINCURI, $PLINK, $CLI sub import { shift; $LOGFH = ${$_[0]}; $writelog = ${$_[1]}; if (defined $writelog) { $writelog->down(); $writelog->up(); } else { print "semaphore is not defined\n"; } if (defined $LOGFH) { print $LOGFH "Initiator loaded\n"; } else { print "logfile is not defined\n"; } }