my $q = CGI->new();
  my $url = $q->url(-absolute => 1);