my $dsn = "dbi:mysql:database=db;host=1.1.1.1";

    my $attr = { mysql_connect_timeout => 1 };

    my $dbh = DBI->connect( $dsn, $user, $password, $attr ) or die DBI::errstr;