Well this is a rough example since you were not real specific as to what you needed but here goes

#!/usr/bin/perl -w

use DBI;

#The database handle

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