#!/usr/bin/perl -w
use strict;
use DBI;
#
# ---- untested 
#
my ($dns, $user, $password) = ("dbi:wathever:db","me","secret");
my $dbh = DBI->connect($dns,$user,$password, 
    {RaiseError=>0 , PrintError=>0})        # <-- be quiet!
or die "can't connect ($DBI::errstr)\n";

my $sth= $dbh->prepare("SELECT WRONG FROM NON_EXISTING");
if ($sth) {
    # fetch your records
    while (my $rec = $sth->fetchrow_arrayref()) {
        print "@$rec\n";
    }
}
else {
    print "something was wrong: ", $dbh->errstr, "\n";
    # deal with the problem here
}


##</code><code>##

 _  _ _  _  
(_|| | |(_|><
 _|