SMS - Short Message Service [[is that right?]]

Does anyone have code to send text messages from a Tcl program to 
a cell phone?