test/script/module-protocol-sessionless/materials/sessionless-6.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5 use IO::Socket::INET;
   6
   7 $| = 1;
   8
   9 my $socket = IO::Socket::INET->new(
  10         PeerAddr => "127.0.0.1:40001"
  11 );
  12
  13 print $socket "POST / HTTP/1.0\r\nContent-length: 10\r\n\r\n";
  14 print $socket "0123456789";
  15
  16 while (<$socket>) {
  17         print STDOUT $_;
  18 }
  19
  20