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";
[download]

error message:  Can't call method "login" on an undefined value at tMo
+nitor.pl line 63.
[download]

$currentNode2 is legitimate, but you can only access it from $currentNode1

running from NT boxes to linux redhat version 7

I appreciate all help.

Thanks.

Janitored by Arunbear - added code tags, as per Monastery guidelines