Select Code to Download

open(OUTPUT, " > eol_dos.out") or die $!;
print OUTPUT <<EOL;
dir
EOL

>ver

...

>perl a.pl && type eol_dos.out
dir

open(OUTPUT, " > eol_dos.out") or die $!;
print OUTPUT <<EOL;
ls -1
EOL

$ uname
Linux

$ perl a.pl && cat eol_dos.out
ls -1

sqlplus -S "/as sysdba" <<"SQLEND"
set heading off
...
from dual
;
SQLEND

my @cmd = (
    sqlplus => (
...
__EOI__

close($to_sqlplus);

use IPC::Open2 qw( open2 );

...

close(TO_SQLPLUS);
waitpid($pid,0);