use strict;
use warnings;
use Net::SSH::Perl;


my($host, $username, $new_password, $old_password);


$host = "IPADRESSE";
$username = "USERNAME";
$old_password = "PASSWORD";

my $ssh = Net::SSH::Perl->new($host, debug => 1, protocol => 2);
$ssh->login($username, $old_password);


$ssh->register_handler("stderr", sub {
    my($channel, $buffer) = @_;
    my $str = $buffer->bytes;

    if ($str eq "(current) UNIX password: ") {
        $channel->send_data($old_password);
    }

    elsif ($str eq "New UNIX password: ") {
        $channel->send_data($new_password);
    }

    elsif ($str eq "Retype new UNIX password: ") {
        $channel->send_data($new_password);
    }
});

$ssh->cmd('passwd');

make[1]: *** [init.o] Fehler 1
make[1]: Leaving directory `/home/slarisch/Math-Pari-2.010800/libPARI'
make: *** [libPARI/libPARI.a] Fehler 2

dpkg -i libnet-ssh-perl-perl_1.33-1_all.deb

Now signing changes and any dsc files...
 signfile libnet-ssh-perl-perl_1.32-1.dsc root <root@root@cacti.de>
gpg: skipped "root <root@root@cacti.de>": secret key not available
gpg: [stdin]: clearsign failed: secret key not available
debsign: gpg error occurred!  Aborting....
debuild: fatal error at line 1155:
running debsign failed

We need to generate a lot of random bytes. It is a good idea to perform
some other action (type on the keyboard, move the mouse, utilize the
disks) during the prime generation; this gives the random number
generator a better chance to gain enough entropy.
+++++++++++++++++++++++++++++++++++...++++++++++++++++++++.++++++++++++++++++++.+++++++++++++++...+++++++++++++++.+++++...++++++++++++++++++++..+++++.>+++++........+++++

Not enough random bytes available.  Please do some other work to give
the OS a chance to collect more entropy! (Need 284 more bytes)

#!/usr/bin/perl

use strict;
use warnings;

my $host = $ARGV[0];
my $user = $ARGV[1];

if (not defined $host or not defined $user) { print "Usage: $0 <Hostname> <Username>\n"; exit(1);}
system("ssh $user\@$host passwd $user");