my 	   $database = "";
my     $platform = "mysql";
my 	   $host     = "5.214.214.121";
my 	   $port     = "3306";



print "Enter User Name\n";
my 	   $user     = <>;
chomp  $user;

print "Enter Password\n";
my 	   $pw       = <>;
chomp  $pw;


 	   $dsn = "dbi:mysql:$database:5.214.214.121:3306";
 	   $dbh = DBI->connect($dsn, $user, $pw, { RaiseError => 0, PrintError => 1 });