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");