I offer this as something to keep in your back pocket if you need to automate more elaborate dialogs with Perl: Expect.pm is a great tool to know about.

Expect.pm is built to either spawn a process or take an existing filehandle and interact with it such that normally interactive tasks can be done without operator assistance.

The CPAN doc even contains some telnet examples.