# Create a client connection object "the hard way" my $c = HTTP::Daemon::ClientConn->new_from_fd( 'STDIN', "+>" ); ##

##

# Create a client connection object "the hard way"
$c = HTTP::Daemon::ClientConn->new_from_fd(STDIN, "+>");

##

##

my $c = HTTP::Daemon::ClientConn->new_from_fd( fileno( STDIN ), '+>' );

##

##

c:\test\546536>client
Sending request...
Got response
Content: HTTP/1.1 200 OK   <<<<<<<<<<<<<<<<<<<<< **** Note: No EOF *****
Client-Date: Sun, 30 Apr 2006 18:44:08 GMT
Client-Peer: 127.0.0.1:2112
Client-Response-Num: 1

Date: Sun, 30 Apr 2006 18:44:08 GMT

Server: libwww-perl-daemon/1.21

**** The content I assume you were expecting, but didn't mention even when queried. *****

Content-Length: 56
X-Content:: Pid: 1572 Sun Apr 30 19:44:08 2006 



Pid: 1572 Sun Apr 30 19:44:08 2006


##

##

Got response
Content: HTTP/0.9 200 (OK) EOF <<<<<< ******* EOF means End of file ***** 
Client-Date: Sun, 30 Apr 2006 05:50:47 GMT
Client-Peer: 127.0.0.1:2112
Client-Response-Num: 1