system(<<EOF) and die "couldn't run listener control: $?";
echo "set password 'oracle'
set current_listener 'LISTENER'
status" | lsnrctl
EOF