proc greeting {} {
    switch $HTTP_ACCEPT_LANGUAGE {
	en {
	    return "Hello, how is it going?"
	}
	it {
	    return "Buon giorno, come va?"
	}
	fr {
	    return "Bonjour, comment ça va?"
	}
	de {
	    return "Guten Tag, wie geht's?"
	}
	zt {
	    return "Grüezi, wi gaat's?"
	}
    }
}

puts [greeting]