#!/usr/bin/perl
use strict;
use warnings;
use v5.10;

use DBI;
say "Perl MySQL Connect Demo";

my $dsn = "DBI:mysql:db:server";
my $username = "user";
my $password = 'password';

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