POE::Session->create
      ( inline_states =>
          { _start => sub {
             my ( $kernel, $heap ) = @_[ KERNEL, HEAP ];

# Post a request to the HTTP user agent component.  When the
# component has an answer (positive or negative), it will
# send back a "got_response" event with an HTTP::Response
# object.

                $heap->{www_time_start} = [gettimeofday];

$kernel->post( "BY-ua" => request => got_response => GET $url );

                $self->queue_stats("enqueue", $url);
            },

            # A response has arrived.  Display it.

            got_response => sub {
                my ( $heap, $request_packet, $response_packet ) =
                      @_[ HEAP, ARG0, ARG1 ];

                my $http_request = $request_packet->[0];
                my $http_response = $response_packet->[0];

                my $iv = tv_interval ($heap->{www_time_start});

                my $url_iv = sprintf "%s=%.2f",
                         substr($http_request->url(), -10), $iv;

                DEBUG "Response time: $iv";

                # Make the response presentable, and display it.
DEBUG "Received result for ", $http_request->url(), ": ",
                      $http_response->as_string();
           },
      );