#!/usr/bin/perl -w
use strict;

system("lsnrctl")<<"EOF"==0 or die "couldn't run listener control: $!" ;
set password
set current_listener
status
EOF