Select Code to Download

use Net::Telnet ();
my $tn = Net::Telnet->new(Timeout => 15, Prompt => '/host:\/home\/dir\
+>/');
...
  print "\nUnable to close Telnet connection to HOST: $host\n\n";
  exit;
}