You're not testing the error returns on the open or login. Do so, and display any errors. That will give you an idea of where the problem is.

Non-perl comment: did you try pinging the address? Did you manually logon to that box with the specified ID and password?