#!/usr/bin/perl
use strict;
use warnings;
use Net::Telnet ();
my $t = new Net::Telnet (Timeout => 10,
Prompt => '/.*(#|>|\))\s*$/');
my $remote_host='home';
$t->open(Host => $remote_host, Port =>23);
$t->login('root', 'pass');
the error that I get when I run this file from the command prompt is
problem connecting to "home", port 23 :unknow error at line 9.
I cant seem to figure out whats wrong with it
check the Net::Telnet documentation to see if there is option to set debug level. use that and see if anything you can find
there is a way..can use input_log() or dump_log() but both the files are empty
make sure you have a remote server to connect to, i hope its not really "home" (or is it?)
make sure remote server is configured to allow root login.
make sure telnetd is running on the remote server
make sure your prompt is correct
no its not home and il check the rest of the things