GIT.Harvie.CZ
/
mirrors
/
Programs.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Improved goertzel documentation
[mirrors/Programs.git]
/
perl
/
socket.pl
1
#!/usr/bin/env perl
2
use
strict
;
3
use
warnings
;
4
use
IO
::
Socket
::
INET
;
5
6
my
$sock
=
IO
::
Socket
::
INET
->
new
(
'localhost:80'
);
7
print
$sock
"GET / HTTP/1.1
\r\n
Host: localhost
\r\n
Connection: close
\r\n\r\n
"
;
8
while
(<
$sock
>) {
9
print
$_
;
10
STDOUT
->
flush
;
11
}
12
13
$sock
->
close
;
14
This page took
0.261648 seconds
and
4
git commands to generate.