use vars qw( @EXPORT @EXPORT_OK %EXPORT_TAGS ); @EXPORT = (); @EXPORT_OK = qw( foo bar baz ); %EXPORT_TAGS = ( all => [qw( foo bar baz )], nobaz => [qw( foo bar )], nobar => [qw( foo baz )], nofoo => [qw( bar baz )], );