#!/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;