Added bedtime perl script