#!/bin/sh # -*- tcl -*- # The next line is executed by /bin/sh, but not tcl \ exec tclsh8.6 "$0" ${1+"$@"} package require Expect # read a complete line from stdin # aborting after the number of seconds (given as an argument) # - Don Libes set timeout $argv expect -re \n {send_user $expect_out(buffer)}