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

##</code><code>##

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