do {
  my $a = bless({
    _path            => "cliente/571/chiamata/new/edit",
    action           => "/anagrafica/edit_chiamata",
    address          => "81.174.26.135",
    arguments        => [],
    base             => bless(do{\(my $o = "http://t4.diff.org:3000/")}, "URI::http"),
    body_parameters  => {},
    captures         => [571, "new"],
    cookies          => {
                          elettro_session => bless({
                                name  => "elettro_session",
                                path  => "/",
                                value => ["6bb14aeb7f143783b9162995505306527087decc"],
                              }, "CGI::Simple::Cookie"),
                        },
    headers          => bless({
                          "accept" => "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8",
                          "accept-charset" => "ISO-8859-1,utf-8;q=0.7,*;q=0.7",
                          "accept-encoding" => "gzip,deflate",
                          "accept-language" => "it,en;q=0.7,en-us;q=0.3",
                          "cache-control" => "max-age=0",
                          connection => "keep-alive",
                          cookie => "elettro_session=6bb14aeb7f143783b9162995505306527087decc",
                          host => "t4.diff.org:3000",
                          "keep-alive" => 300,
                          referer => "http://t4.diff.org:3000/cliente/571/view",
                          "user-agent" => "Mozilla/5.0 (X11; U; DragonFly i386; en-US; rv:1.9.0.6) Gecko/2009030909 Minefield/3.0.6",
                        }, "HTTP::Headers"),
    match            => "/anagrafica/edit_chiamata",
    method           => "GET",
    parameters       => {},
    protocol         => "HTTP/1.0",
    query_parameters => {},
    remote_user      => undef,
    secure           => 0,
    uploads          => {},
    uri              => bless({
                          factory_class => "URI::SmartURI",
                          obj => bless(do{\(my $o = "http://t4.diff.org:3000/cliente/571/chiamata/new/edit")}, "URI::http"),
                          reference => 'fix',
                        }, "URI::SmartURI::http"),
    user             => undef,
  }, "Elettro::Request::SmartURI");
  $a->{uri}{reference} = \${$a->{base}};
  $a;
}