#!/opt/dsap/tcl7.4tk4.0/bin/expect -f
# 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)}
