tour of perl