#!/usr/bin/perl -w

use GLOBAL;
compress "main\n";

require "MODULE.pm";
MODULE->test;

##</code><code>##

package GLOBAL;

use base 'Exporter'
our @EXPORT = qw(compress);

sub compress {
  print shift;
}

1;

##</code><code>##

package MODULE;

sub test {
  compress "test\n";
}

1;