Select Code to Download

system("lsnrctl <<\"EOF\"
set password oracle
...
status
EOF
") == 0 or die "Couldn't run listener control: $?";

<< was unexpected at this time.
Couldn't run listener control: 256 at C:\heredoc_test.pl line 4.