#!/usr/bin/env perl use strict; use warnings; use DX::Tcl; DX::Tcl->new->run(@ARGV);