use Term::ReadKey;
use DBI;
   .
   .
   .
print "Enter password for $user:\n";
ReadMode 2;
chomp($passwd = ReadLine(0));
ReadMode 0; # Reset tty mode
my $dbh = DBI->connect("DBI:mysql:database=$db;host=$server", $user, $passwd);