eval {
  $t = Net::Telnet->new(...);
  $t->open(...);
  # and so on
};
warn $@ if $@;