use Symbol;
use IPC::Open3;

my ( $w_sym, $r_sym, $e_sym ) = ( gensym, gensym, gensym );

my $pid = open3( $w_sym, $r_sym, $e_sym, 'sqlplus -s abc/abc123@db' ) || die "Can't open `sqlplus -s abc/abc123\@db` : $!\n";

my @commands = q(
      'set pages 100 lines 10000 head off',
      'select cl_names from table_cl;' );

foreach my $cmd ( @commands ) {
   print $w_sym "$cmd\r\n";
}

close $w_sym;

my $error = <$e_sym>;

my $output_data = <$r_sym>;

close $r_sym;
close $e_sym;

ungensym $w_sym;
ungensym $r_sym;
ungensym $e_sym;

print $output_data;