OSDN Git Service
(root)
/
ultramonkey-l7
/
ultramonkey-l7-v3.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
096f7513dfeea638c64d705d1430dc8807db90bb
[ultramonkey-l7/ultramonkey-l7-v3.git]
/
test
/
script
/
module-protocol-sessionless
/
materials
/
sessionless-14.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.1\r\nHost: 127.0.0.1\r\nContent-length: 10\r\nX-Forwarded-For: proxy1,proxy2\r\n\r\n";
14
print $socket "0123456789";
15
16
while (<$socket>) {
17
print STDOUT $_;
18
}
19
20