#!/usr/bin/tclsh

set sockChan [socket localhost 41971]
gets $sockChan line
close $sockChan
catch {exec /usr/bin/mythutil --message --message_text "$line" --timeout 3 --bcastaddr=127.0.0.1}