use base 'Exporter'; our @EXPORT = qw[ functionA $variableB %mutantX ]; #### package Foo; use Bar qw[ functionA ]; functionA($something);