touring perl