#!/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");