mirror of
https://github.com/zeux/pugixml.git
synced 2024-12-29 07:19:43 +08:00
754567ece2
git-svn-id: http://pugixml.googlecode.com/svn/trunk@422 99668b35-9821-0410-8761-19e4c4f06640
12 lines
213 B
Perl
12 lines
213 B
Perl
#!/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>);
|
|
|