use strict;
use warnings;

package Foo;

use base 'Exporter';
our @EXPORT = qw(sub1);
our @EXPORT_OK = qw(sub1 sub2);

sub sub1 { print "Foo::sub1\n"; }
sub sub2 { print "Foo::sub2\n"; }

package main;

#use Foo;
BEGIN { Foo->import(); }

sub sub1 { print "main::sub1\n"; }

sub1();