I think you'll want to change the errmode to be return. By default, the errmode is set to die.

Basically, change you connection line to be something like:

$telnet = Net::Telnet->new(Host =>"$x",timeout=>13,errmode=>return);
[download]

Then you'll need to check $telnet to determine if it was able to successfully connect or not. Check the documentation of Net::Telnet for more details on this.