my $server   = "localhost";      # Default host
  my $domain   = ".company.com";   # Default domain
  my $conf_loc = "/someplace";     # Where config files live

  $server  = $q->virtual_host() if $q->virtual_host();    # Where are we?	
  $server .= $domain unless ($server =~ /[$domain]$/i);    # Need a domain?
  if ($server =~ /^([-\w\.]+)$/) { # clean it
    $server  = lc($1);
    chdir $conf_loc or error($q, qq(Unable to locate configuration folder $conf_loc));
    $CFG_FILE = $server . ".$CFG_FILE" if ($server && -R "$server.$CFG_FILE");		# If there is a specific file then use it
  }