Select Code to Download

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

open my $fh, "|-", "lsnrctl" or die "can't run listener control: $?";
print $fh <<EOF;
...
status
EOF
close $fh;