crypt(localtime,'$5$')

Not all perls support sha256-based crypt, so actually, don't do this. Old crypt truncates the input at 8 characters, so you're actually only using the day-of-week and month.