$retour_nodbd = qx { sqlplus -s system/password\@MYBASE <<EOF
select sysdate from dual;
exit;
EOF };

##</code><code>##

$retour_nodbd=`tnsping MYBASE`; 

##</code><code>##

$retour_nodbd=`sqlplus system\/password\@MYBASE \@my_sql`;