#!/usr/bin/perl -w

use DBI;

#The database handle

my $dbh = DBI->connect( "dbi:SQL:Example", "username", "password" , {
    RaiseError => 1
});