1 files changed, 11 insertions, 0 deletions
diff --git a/tests/autotest-remote-server.pl b/tests/autotest-remote-server.pl
new file mode 100644
index 0000000..e113808
--- /dev/null
+++ b/tests/autotest-remote-server.pl
@@ -0,0 +1,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>);
+