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

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