Folks, can you toss me some ideas how to wrap this within perl? timex sqlplus $RTDUSER/$RTDPASS@$RTD_ORACLE_SID <<-! 1>/dev/null 2> $oracleTMPFILE quit ! would this work? it looks funky $oratime = qx( (timex sqlplus $RTDUSER/$RTDPASS@$RTD_ORACLE_SID <<-! 1>/dev/null quit !); Ron