#!/usr/local/bin/perl
use warnings;
use strict;
use 5.10.1;
use utf8;
use open qw( :encoding(UTF-8) :std );
use DBI;
use Term::ReadPassword;

my $user = 'test_user';

my $passwd = read_password( 'Enter password: ', 0, 1 );

#print 'Enter password: ';
#my $passwd = <>;
#chomp $passwd;

say "|$passwd|";

        
my $dbh = DBI->connect( "DBI:mysql:dbname=information_schema", $user, $passwd, {
    PrintError        => 0,
    RaiseError        => 1,
    AutoCommit        => 1,
    mysql_enable_utf8 => 1,
} ) or die DBI->errstr;