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

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

##</code><code>##

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

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

##</code><code>##

#!/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: $!" ;