package MyGlobalHash;
use base Exporter;
@EXPORT = qw(%MyGlobalHash);
%MyGlobalHash = (foo => "Hello, world!\n");
1;