package FooBar; ## Always used: use strict; use warnings; ## Other modules: require Some::OO::Module; use Some::Function::Module qw( Func1 Func2 ); ## Setup of this module: use base 'Quux'; use vars qw( $VERSION @EXPORT_OK ); $VERSION= 1.001; @EXPORT_OK= qw( ... ); ## Globals: use vars qw( $Master ); $Master= ...; use constant _IdNo => 0; use constant _Name => 1; use constant _Pos => 2; # Gee, we need "use enum" (: