Select Code to Download

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

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

print {$pipe_fh} <DATA>;

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

use strict;
use warnings;
...
__DATA__
select * from emp;
exit;