use POE;
    use POE::Component::Client::UserAgent;
    POE::Component::Client::UserAgent -> new;
    $postback = $session -> postback ('response');
    $request = HTTP::Request -> new (GET => $url);
    $poe_kernel -> post (useragent => request =>
        { request => $request, response => $postback });
    sub response
    {
        my ($request, $response, $entry) = @{$_[ARG1]};
        print $response -> status_line;
        $_[KERNEL] -> post (useragent => 'shutdown');
    }