package SharedVariables; use base Exporter; # Default export @EXPORT = qw( $scalar1 $scalar2 @array1 ); # Possible to export these @EXPORT_OK = qw( $scalar1 $scalar2 @array1 @array2 ); # Named groups to export %EXPORT_TAGS = ( scalars => [ qw( $scalar1 $scalar2 ) ], arrays => [ qw( @array1 @array2 ) ], ); 1;