ttls/gtc + perl