TMTOWTDI. Perl and: + Tcl/Tk = Perl/Tk