1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
my $serverPort = 23;
my $socket = IO::Socket::INET->new(LocalPort => $serverPort,
Reuse => 1,
Listen => 5)
or die "Can't start tcp-server at port $serverPort ($!)\n";
my $socketConnection;
my $RECVSIZE = 10000;
my ($message,$answer);
print "Starting server on port $serverPort \n\n";
while ($socketConnection = $socket->accept())
{
print "Received connection.\n";
my $message = chr(13);
$socketConnection->send($message);
my $obj = new Net::Telnet();
$obj->open("10.3.1.111");
$mess = $obj->getlines;
#$socketConnection->recv($answer,$RECVSIZE);
print $mess;
$socketConnection->close();
} |
