//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') //