G'day Sharath,

I'd recommend starting by cleaning up your code. I don't know if you've shown everything here: there's a few things that could potentially cause problems that can easily be avoided. Here's some suggestions:

• Use the strict and warnings pragmata. Initially, this will generate quite a few errors: most, if not all, of these can be fixed by simply declaring your variables with my.
• Avoid Indirect Object Syntax: see perlobj: Invoking Class Methods for a strongly worded explanation of why this syntax is discouraged.
• Use lexical filehandles: see open for a discussion of this.

Your current code:

my $req;

while ($req = ...
[download]

would probably be better as:

while (my $req = ...
[download]

And I suspect:

chomp;
[download]

is supposed to be:

chomp $req;
[download]

Once you've done that, it's possible your current problems may be resolved (I'm unfamiliar with this adb program you mention, so I don't really know). However, assuming that's not the case, look at eval for a way to trap errors: you'll want the block form of eval which you'd code something like this:

eval {
    # Code which might generate an error
}
if ($@) {
    # Handles any errors here
    # $@ holds the error message
}
[download]

Thanks kcott and Ken. The problem resolved once i added $t->errmode("return"); suggested by Kcott before while statement. I have even added chomp $req what Ken suggested. Thanks again for the solving my 1 week headache. Cheers, Sharath

You seem a little confused over who's who and who posted what.

kcott and Ken are one and the same (i.e. me); just as ramki067 and Sharath are one and the same (i.e. you).

It was Athanasius who suggested $t->errmode("return");. He won't be notified of your reply to me; you may want to thank him separately.

Anyway, glad you've resolved your problem, regardless of who's advice was involved. :-)

-- Ken

From the Net::Telnet documentation:

Errors such as timing-out are handled according to the error mode action. The default action is to print an error message to standard error and have the program die.

Try adding the line:

$t->errmode("return");
[download]

before the while loop. This should prevent the script from dying. See the entry for “errmode” in the “METHODS” section of Net::Telnet. (This also shows how to retrieve the error message when a command fails.)

Hope that helps,