open (FILE,">>$UserDB")
    or die qq{can't open "$UserDB": $!};