tests/autotest-remote-server.pl


1
2
3
4
5
6
7
8
9
10
11

#!/usr/bin/perl

use IO::Socket;

my $server = new IO::Socket::INET(LocalPort => 7183, Listen => 1);
die "Could not create socket: $!\n" unless $server;

my $client = $server->accept();

print while (<$client>);