Select Code to Download

#!/usr/bin/perl -Tw

...
    print "REQUEST\n",$http_request->headers_as_string();
    print "RESPONSE\n",$http_response->headers_as_string();
}

foreach my $url (@url) {
    $poe_kernel->post( 'weeble', 'request',
 got_response => GET $url
    );
}