#!/usr/bin/perl
my $verbose=1;
my $user=@ARGV[0];
my $passwd_cmd="/usr/bin/passwd";
my $su_cmd="/bin/su $user -c";
#######################################################
#######################################################
my $cmd=$su_cmd . $passwd_cmd . " $user";
print "command=$cmd\n" if $verbose;
my $output=system($cmd);
print "output=$output\n" if $verbose;
exit $output;