load /usr/local/lib/tclshout/tclshout0.8.so
set conn [ shout_init 127.0.0.1 8000 letmein ]
shout_connect $conn

set bufsize 4096

set fd [open [lindex $argv 0] r]

    while { [ set buf [ read $fd $bufsize ] ] != "" } {
        set len [string bytelength $buf]

        shout_send_data $conn $buf $len
        shout_sleep $conn
    }
    puts "End of file reached"
close $fd

shout_disconnect $conn