package MyConst; use warnings; use strict; use base 'Exporter'; use vars qw(@EXPORT_OK %EXPORT_TAGS); @EXPORT_OK = qw($const1); %EXPORT_TAGS = (all => \@EXPORT_OK); # ... #### use MyConst qw(:all);