OK I figured out the problem. My last line in the reply above was what I needed to do. Change the default errmode from die to return.

    $pop = new Net::Telnet (Telnetmode => 1,
                            Errmode => "return");
[download]

Now when a timeout occurs, the loop exits and the script continues.