new file: perl/userdir_log