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

my $command = <<EOF;
lsnrctl
set password 'oracle'
set current_listener 'LISTENER'
status
EOF

system($command)==0 or die "couldn't run listener control: $!" ;