#!/usr/bin/perl

use warnings;
use HTTP::Request::Common qw(GET POST);
use POE qw(Component::Client::HTTP);
use YAML;

my @url_list;
for(1 .. 10) {
my $a = rand(900);
my $b= rand(900);
my $t = int(rand(100000));
my $url = "http://127.0.0.1:3000/search/".$t."/?a=".$a."&b=".$b;
push @url_list, $url;
}

POE::Component::Client::HTTP->spawn(Alias => 'ua');

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

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

  
}

sub _start {
  my $kernel = $_[KERNEL];

  foreach my $url (@url_list) {
    
    $kernel->post("ua" => "request", "got_response", GET $url);
    
  }
}

POE::Session->create(package_states => [main => ["_start", "got_response"]]);

$poe_kernel->run();