my $dbh;
while( not $dbh ){
   my $user = prompt("enter username");
   my $pass = prompt("enter password");
   $dbh = DBI->connect( $dsn, $user, $pass );
}