Write Perl subroutines in Tcl
