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