perl to filestat(); insert_lines; passwords; serverd