...
eval 
{
    $sth = $dbh->prepare( $sqlstatement );
    $sth->execute();
};

if ( $@ ) 
{
    warn "Database Error: $@\n";
}
...