#!/usr/bin/perl -w

use strict;
use URI;

use constant BASE_URL => 'index.pl';
use constant REFERER  => 'http://search.cpan.org/search?dist=URI';

my $uri = URI->new(BASE_URL);

$uri->query_form(
  location => 'Redirect',
  URL      => REFERER,
  referer  => 'Links',
);

print $uri;