sub SaveUserData { my ($userFile, $data);
&CreateUserDir(); $userFile = &UserDataFilename($UserID); $data = join($FS1, %UserData); &WriteStringToFile?($userFile, $data); }