#!/usr/bin/perl -Tw

 use strict;
 use CGI ":all";

 our $serverName = "blahblahblah";
 our $serverDB = "blahblahblah";
 our $serverUser = "blahblahblah";
 our $serverPass = "blahblahblah";
 our $db = "DBI:mysql:$serverDb:$serverName";

 print header, "test";

##</code><code>##

 our $db = "DBI:mysql:".$serverDb.":".$serverName;

##</code><code>##

 my $x = "DBI:mysql:";
 my $y = ":";
 our $db = $x.$serverDb.$y.$serverName;