Write Perl subroutines in Tcl