Select Code to Download

 #!/usr/bin/perl -Tw

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

 print header, "test";

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

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