#!/usr/bin/perl
use strict;
use warnings;
use DBI;

my $username='username';
my $pass='password';
my $db='database_name';
my $host='hostname';
my $dbh = DBI->connect( "dbi:mysql:database=$db:$host", $username, $pass, { 'PrintError' => 1, 'RaiseError' => 1 } );