use strict;
use test_module;

my %hash;
$hash{foo} = "bar";
$hash{bar} = "foo";

&test

##</code><code>##

use strict;

sub test {

    my $test = $main::hash{foo};

    print "$test\n";

}

1;