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

##</code><code>##

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