use strict;
use warnings;

use Net::SSH qw(ssh issh sshopen2);

my $command="passwd USERNAME";

issh('USERNAME@HOSTNAME', $command);