Perl HTTP server

Question

I\'m new at Perl, and I have a question regarding HTTP servers and client APIs.

I want to write an HTTP server which accepts requests from HTTP clients. The problem

Answer 1

A client example compliant with the synopsys from HTTP::Daemon :

 require LWP::UserAgent;

 my $ua = LWP::UserAgent->new;
 $ua->timeout(10);
 $ua->env_proxy;

 my $response = $ua->get('http://localhost:52798/xyzzy');

 if ($response->is_success) {
     print $response->decoded_content;  # or whatever
 }
 else {
     die $response->status_line;
 }

You just need to adapt the port and maybe the host.