package PKG; use strict; use sharedFunctions; my $LOGFH = undef; my $writelog = undef; #constructor sub new { my ($self) = {}; bless($self); return $self; } sub import { shift; $LOGFH = ${$_[0]}; $writelog = ${$_[1]}; }