chomp (my @hosts = `cat /.root/sample.txt`);

my $pssh = Net::OpenSSH::Parallel->new();

$pssh->add_host($_, user=> $user_name,
                master_stderr_discard =>1,
                master_opts => [-o => "StrictHostKeyChecking no" ]) fo
+r @hosts;

$pssh->push('*', command => 'egrep "^dba|^sea|^adm|^mwa|^ae" /etc/pass
+wd');
$pssh->run;
[download]

I use ssh keys where possible but the ssh public key is not added in all 190 servers.

I do not use 190 different password.. just one that can connect to all the servers

I cannot capture the output of the /etc/passwd found and produce a csv.. that is why I did not went through with parallel.. if you have a solution.. please let me know

Hello again garcimo,

Sorry for the late reply but I got busy and I missed your reply. Let's go through line by line what you said.

I do not use 190 different password.. just one that can connect to all the servers

I do not know if you use WindowsOS but in case you are using LinuxOS I would create a script and do the following (pseudo code):

#!/usr/bin/perl
use Expect;
use strict;
use warnings;

my @devices = ("127.0.0.1", "localhost");

my $command = 'ssh';
my @params = ('-p', 22);

# These is to bypass the prompt of each node for new ssh connection.
foreach my $device (@devices) {
    # create an Expect object by spawning another process
    push @params, $device;
    my $exp = Expect->spawn($command, @params);
    $exp->send("yes");
}

# Second step do the same with ssh-copy-id (ssh keys)
# You said that all nodes share the same password so it should be very
+ easy to create ssh keys for all nodes from the main node.
[download]

The idea of the script is to bypass the ssh prompt on all nodes and then create ssh keys on all nodes. See also relevant question SSH - Key Authentication for more information on that.

After that it is upon you if you want to capture the output of each node on different file stored in specific dir or append each node on one file.

If in any case my description is complicated comment under and I will try to reply with more details on the part that you do not understand.

Hope this helps, BR

Seeking for Perl wisdom...on the process of learning...not there...yet!

seems very nice. thank you

I managed to remove the prompt asking for yes or no but cannot make it work for adding the public key using ssh-copy-id.

this is the code, note that with push it never worked.

#!/usr/bin/perl
use Expect;
use strict;
use warnings;

$Expect::Debug = 1;

my $pass= '****';

my $timeout = 1;
#
chomp (my @devices = `cat sample.txt`);
print "@devices\n";

#
## These is to bypass the prompt of each node for new ssh connection.
foreach my $device (@devices) {
# create an Expect object by spawning another process
        #push @params, $device;
        print $device;
            my $exp = Expect->spawn("ssh-copy-id $device");
            if ($exp->expect($timeout, 'password')){
            $exp->send("$pass\r");
                }
         }
[download]

any ideas? thank you