package GLOBAL;

use base 'Exporter'

##</code><code>##

our @EXPORT = qw(compress);

sub compress {
  print shift;
}

1;

##</code><code>##

package MODULE;

use GLOBAL;

sub test {
  compress "test\n";
}

1;