package SUP::ServerConstants; use strict; use vars qw/@EXPORT @EXPORT_OK/; require Exporter; use base qw/ Exporter /; use Data::Dumper; @EXPORT = qw/SERVER_NAME MYSQL_PORT SERVER_ID/; @EXPORT_OK = qw/HTTP_PROXY PATH_TO_BINARIES/; use constant SERVER_NAME => 'http://FOO'; use constant MYSQL_PORT => '3308'; use constant SERVER_ID => '44'; use constant HTTP_PROXY => ''; use constant PATH_TO_BINARIES = '/var/foo';