package Foo;
use warnings;
use strict;
use Exporter 'import';
our @EXPORT = qw/foo $FOO/;
sub foo { print @_, "\n" }
our $FOO = 'bar';