#UNTESTED

# in one place
open(LOG, " >/foo/logfile") or warn "$!\n";
my $fileno = fileno(LOG);   

# then pass the fileno somehow to the other package, 
# thru an option or our variable
open (my $fh, ">&=$fileno") or warn "$!\n";