TiVo::Calypso is a Perl interface to the TiVo Calypso protocol. It is freely distributable under the terms of the GNU General Public License.