package Foo;
use strict;
use vars qw(@ISA @EXPORT %EXPORT_TAGS);

use Exporter;
@ISA = qw(Exporter);

%EXPORT_TAGS = (  
    TAG1 => [qw(F1 F2 Func)],
    TAG2 => [qw(%bar @baz)],
);

##</code><code>##

    use Foo qw(:TAG1 %baz);