eval {
    local $SIG{__WARN__} = sub {};
    $dbh->prepare( $statement, { mysql_server_prepare => 1 } ) 
};
if ( my $error = $@ ) { ... }