#!/usr/bin/perl
use strict;
use warnings;
use v5.10; # for say() function

use DBI;
say "Perl MySQL Connect Demo";
# MySQL database configuration
my $dsn = 'DBI:mysql:information_schema:<AWS RDS HOST NAME>;mysql_ssl=1;mysql_ssl_ca_file=./rds-combined-ca-bundle.pem';

my $username = '<MYSQL USER>';
my $password = '<MYSQL PASS>';

my %attr = ( 
  PrintError=>0,  # turn off error reporting via warn()
  RaiseError=>1
);   # turn on error reporting via die()

my $dbh  = DBI->connect($dsn,$username,$password, \%attr);

say "Connected to the MySQL database.";