Telnet using IO:Socket module

[pankajwarade]

Hi,

I am tring to use IO::Socket module in order to execute the commands on
remote server. Perl script connects remote server on port 23, and waits for
login prompt forever.  It recieves non-printable characters instead of login
prompt.
-------------
#!/usr/bin/perl

use IO::Socket;

my $sock = new IO::Socket::INET (
                                        Proto       => 'tcp',
                                        PeerAddr    => 10.38.3.3,
                                        PeerPort    => 23,
                                ) or

die "Could not create socket: $!\n" unless $sock;

while(<$sock>)
{
        print;
}
----------


I userstand, I can use Net::Telnet module also for the same.But, tring to
make it work with IO:Socket.

Any input on this will really be appreciated.


Thanks!
Pankaj



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]