sub passwd{
>>$pass_cleartext=$_[1];
}