open(LOG, ">>/tmp/perlplus-secure.log");