package MyLogger; my $logfile = '/var/log/my.log'; our $logfh; open( $logfh, '>>', $logfile ) || die "Cannot open logfile $logfile: $!"; sub log { say $logfh join( ' ', @_); }