Log rotator for perl