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

#Connect to the database
my $dbh= DBI->connect('DBI:mysql:my_database','my_name','my_password') or die
"Couldn't open database: "$DBI::errstr;stopped";

$dbh->disconnect();