print "What is the new passord?\n";
$password = <STDIN>;
feistal($password);