$obj = tie(%hash, 'Tie::Class', 'rw'); $obj->newPwdFile('/usr/local/apache/.passwds');