open my $pipe_fh, '|-', 'sqlplus.exe -s uid/pwd@myserver'
    or die "Can't open pipe: $!";

##</code><code>##

print {$pipe_fh} <<'END_OF_SQL'
select * from emp;
exit;
END_OF_SQL
;

##</code><code>##

print {$pipe_fh} <DATA>;

##</code><code>##

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

##</code><code>##

use strict;
use warnings;

use English '-no_match_vars';

open my $pipe_fh, '|-', 'sqlplus.exe -s uid/pwd@myserver'
    or die "Can't open pipe: $!";
print {$pipe_fh} <DATA>;
close $pipe_fh  or die "close failed: $!";
if ( $CHILD_ERROR ) {
    die "sqlplus returned non-zero exit status '$CHILD_ERROR'";
}
__DATA__
select * from emp;
exit;