>>1
perl の Net::Telnet モジュールを使ってみたら?