while (<FH>) {
  chomp;

  my ( 
      $target,
      $username,
      $userpass

      ) = ( &parse_line(',',0,$_));

  my $userstr = $username . "\:" . $userpass;

  print $target, " ", $userstr, "\n";

  my $ssh = Net::SSH::Perl->new($target);
  
  $ssh->login($adminuser, $adminpass);

  my $cmd = "echo $userstr \| /usr/sbin/chpasswd";

  my ($stdout, $stderr, $exit) = $ssh->cmd($cmd);

}