#!/usr/bin/perl -w

use CGI;
use strict;

print $q->header, $q->url(-absolute=>1, -path=>1, -query=>1);