use HTML::Entities;
my $url = encode_entities(CGI->self_url());
print qq{<a href="/path/to/new/location.pl?URL=$url">new location</a>};