I can think of two modules that might help you so you don't have to rely on another program.

1. Expect
2. Net::Telnet

Or, inside expect, don't expect (pun intended) it to know that $host is what is passed in, use $argv (If I remember my Expect right).