package Foo;
use base Exporter;
@EXPORT_OK=qw($foo $bar $baz);

sub import {
    $foo = $_[0];
    Foo->export_to_level(1, @_); #export symbols to caller
}