Port Number - 1000
host name - abc01.xyz.com
username - gvenkat
password - ganesh99.

##</code><code>##

 //Existing Format

my $port = 1000;
if ( ! $opt_p ){
$port = 1000;
} else {
$port = $opt_p;
}

$dbh = DBI->connect("DBI:mysql:database=$dbnam;host=abc01.xyz.com;port=$port",'gvenkat','ganesh99') //