#!/usr/bin/perl


open(IN, "per_users");
while ($myline = <IN>) {
	($username, $pass) = split ' ',$myline;
	print("changing passwd of $username to $pass\n");
	$result=(`echo $pass |passwd u$username --stdin`);
}