my $currentNode1 = '123.45.6.890';
my $userName1 = sprintf("name1\n");
my $password1 = sprintf("password1\n");

use Net::Telnet;
$b = Net::Telnet->new( Errmode => 'return',
                               Telnetmode => 1,
                               Output_record_separator => '',
                               Prompt => '/[#]/',
                               Timeout => 70,
                               Host    => $currentNode );

@results = $b->login($userName1, $password1) or die "Connect failed: @{[ $b->errmsg() ]}\n";


my $comString = sprintf("cd \/etc\/theDir\n");
@output = $b->cmd($comString);

my $currentNode2 = '123.45.6.892';
my $userName2 = sprintf("name2\n");
my $password2 = sprintf("password2\n");

use Net::Telnet;
$c = Net::Telnet->new( Errmode => 'return',
                               Telnetmode => 1,
                               Output_record_separator => '',
                               Prompt => '/[#]/',
                               Timeout => 70,
                               Host    => $currentNode2 );

@results = $c->login($userName2, $password2) or die "Connect failed: @{[ $c->errmsg() ]}\n";

##</code><code>##

error message:  Can't call method "login" on an undefined value at tMonitor.pl line 63.