I doubt a translation is easily feasable.

IIRC (not sure) does tkx provide an abstraction to write TCL semantically in Perl.

Perl/Tk on the other hand is a OO framework interfacing with the underlying C bindings to the Tk lib, hence bypassing TCL.

While the latter is the cleaner approach it hasn't been updated to newer versions of Tk, while Tkx doesn't need to, cause TCL commands are generated and send over a bridge.

If you think a code translation is possible, then I'd rather opt for a new class framework with same interface, but generating TCL like tkx does. (Doesn't such a project already exist?)²

Keep in mind that TCL is very lisp like, just where in lisp-dogma everything is a list, TCL -dogma makes everything a whitespace separated string.

Not an expert. .. HTH!

See also Perl TK

Update

²) indeed, Tcl::pTk ! AnoMonk++