close $pipe_fh  or die "close failed: $!";
if ( $? ) {
    die "sqlplus returned non-zero exit status '$?'";
}