package SiteConfig; use strict; use Exporter; our $c; @SiteConfig::ISA = qw(Exporter); @SiteConfig::EXPORT_OK = qw($c); $c->{dbname} = 'somedb'; $c->{dbserver} = 'somehost'; $c->{dbuser} = 'someuser'; $c->{dbpass} = 'somepass'; $c->{site_name} = 'Some Plain Text Name'; $c->{domain} = 'some-domain.com'; #... and a bunch more ... #### sub param { return $c->{(shift)}; }