ジョブで自動的に生成されるように予想される使用

タスクスケジュールをキャッチするために時間とプロセス名を取得してatに渡すスクリプトを作成しようとしています。 EOTを送信できません。

    #! /usr/bin/expect
    # Usage: setupkill.exp time process.
    # press ctrl-D to finish the at command.

    set time [lindex $argv 0]
    set process [lindex $argv 1]

    spawn at $time
    expect "at>"
    send "/home/jagan/p/killprocess $process\r";
    expect "at>"
    send "^D";

    interact

このスクリプトは、特定の時間に特定のプロセスを終了するように設計されています。