hide password when DBI to mySQL!

When calling mySQL using DBI-perl, how do we work around so that we would not need to insert the "password" (as shown below). i would imagine we could call a password file?
Has anyone successfully done this? I'd really appreciate your tips. Thanks!


use DBI;
print "Content-type: text/htmlnn"; $user = "myuserid";
$database = "mydatabase";
$host = "";
$port= "3333";
$password = "mypasswd";
$driver = "mysql";
$table = "test";
$dsn = "DBI:$driver:database=$database;host=$hostname;port=$port";
$dbh = DBI->connect($dsn, $user, $password);