G'day kiran13,

Welcome to the Monastery.

[Disclaimer: I'm not a user of Net::Telnet. Others may have better answers. The following is just based on available documentation.]

The Prompt values you show do not appear to match those shown in the documentation. Throughout Net::Telnet, all prompt values I saw include any trailing whitespace, i.e. they look like /xxx $/, rather than your /xxx/.

Take a look at the EXAMPLES section which has quite a lot of information and starts with:

"Setting prompt() to match a user's shell prompt can be tricky. ..."

Here's some additional information to improve your code:

• Always use the strict pragma.
• Always use the warnings pragma.
• Prefer lexical variables (e.g. declared with my) rather than the globally-scoped, package variables you appear to be using.
• Avoid the discouraged Indirect Object Syntax: see "perlobj: Invoking Class Methods" for more about this.