cavernously #!/bin/sh # -*- tcl -*- # The next line is executed by /bin/sh, but not tcl \ exec tclsh8.6 "$0" ${1+"$@"} package require Expect # run a program for a given amount of time # i.e. time 20 long_running_program set timeout [lindex $argv 0] eval spawn [lrange $argv 1 end] expect