expectで、telnet等の対話型コマンドを自動実行

初めて知りました。
http://www.usupi.org/sysad/091.html
これまでは、perlで open(my $fh, '-|', $cmd) のように書いて、いちいち標準出力を受け取ってました。