Select Code to Download

use URI::Escape;
print(
    "authenticate.cgi?destination=",
    uri_escape( $query->url( -query => 1 ) ),
);

use URI;
my $dest = URI->new( "authenticate.cgi" );
$dest->query_form( destination => $query->url( -query => 1 ) );
print $dest->as_string;