#!/usr/bin/perl
use warnings;
use strict;

use TestMod1;
use TestMod2;
use TestUtil;

print "in file.\n";
write_log('file');

##</code><code>##

#!/usr/bin/perl
package TestMod1;
use warnings;
use strict;
use TestUtil;

print "loaded Mod1\n";
write_log('Mod1');

1;

##</code><code>##

#!/usr/bin/perl
package TestMod2;
use warnings;
use strict;
use TestUtil;

print "loaded Mod2\n";
write_log('Mod2');

1;

##</code><code>##

#!/usr/bin/perl
package TestUtil;
use strict;
use warnings;

require Exporter;

our @ISA = qw(Exporter);
our @EXPORT = qw(write_log);

print "loading module TestUtil\n";

#our $LOG if not $LOG and print "LOG did not exist.\n";
our $LOG;

open $LOG, '>', 'test.log' or die;
print "\$LOG = $LOG\n";

sub write_log {
        my $string = shift;
        print $LOG "$string\n";
}

1;

##</code><code>##

Mod1
Mod2
file

##</code><code>##

loading module TestUtil
$LOG = GLOB(0x4006fcd4)
loaded Mod1
loaded Mod2
in file.