#!/usr/bin/perl
use Expect;
use strict;
use warnings;
use Data::Dumper;
use Net::OpenSSH;

select STDOUT; $| = 1;
select STDERR; $| = 1;

my $password = "Your Password Here";
my $port = 22; # default 22 if you have changed modify it
my $timeout = 20;

my $debug = 0;

my $ssh = Net::OpenSSH->new( 'username@127.0.0.1' , password => $password , port => $port );

my ($pty, $pid) = $ssh->open2pty("sudo cat /etc/shells")

# After a successful sudo operation, it doesn't request the password
# again until some time after, handling this undeterministic behavior
# is a pain in the ass, so we just clear any cached credentials
# calling "sudo -k" first as follows:

=comment
    my ($pty, $pid) = $ssh->open2pty("sudo -k; sudo ntpdate ntp.ubuntu.com")
    or die "open2pty failed: " . $ssh->error . "\n";
=cut

my $expect = Expect->init($pty);
$expect->raw_pty(1);
$debug and $expect->log_user(1);

$debug and print "waiting for password prompt\n";
$expect->expect($timeout, ':')
    or die "expect failed\n";
$debug and  print "prompt seen\n";

$expect->send("$password\n");
$debug and print "password sent\n";

$expect->expect($timeout, "\n")
    or die "bad password\n";
$debug and print "password ok\n";

my @array = ();
my @final = ();

while(<$pty>) {
    push (@array,$_);
    print "This is the return: $. $_"
}

foreach my $line (@array) {
    chomp($line);
    $_ = "Modify $line";
    #$line =~ s/;//;
    push(@final,$_);
}

print Dumper(\@final);

__END__

This is the return: 1 # /etc/shells: valid login shells
This is the return: 2 /bin/sh
This is the return: 3 /bin/dash
This is the return: 4 /bin/bash
This is the return: 5 /bin/rbash
$VAR1 = [
',        'Modify # /etc/shells: valid login shells
',        'Modify /bin/sh
',        'Modify /bin/dash
',        'Modify /bin/bash
'         'Modify /bin/rbash
        ];