sub setup_environment { my $server = get_server_name(); for my $env ( %{$environment{$server}} ) { $ENV{$env} = $environment{$server}->{$env}; } return scalar keys %{$environment{$server}}; }