#!/usr/bin/perl -w

use strict; 

use DBI;

#step1- create connection objection


my $dsn = 'DBI:mysql:firstDB';

my $user = 'adam';

my $password = 'no4vista';

my $conn = DBI->connect($dsn,$user,$password) || die "Error connecting". DBI->errstr;

##</code><code>##

root@adam-laptop:/home/adam/Desktop# perl db.pl
DBI connect('firstDB','adam',...) failed: Access denied for user 'adam'@'localhost' (using password: YES) at db.pl line 9
Error connectingAccess denied for user 'adam'@'localhost' (using password: YES) at db.pl line 9.