#!/usr/bin/perl -w

use CGI;
use strict;

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

/cgi-bin/temp/self.cgi?file_url=%2F%2Ftestdoc_dir%2Ft1.txt&file_path=%2Fu02%2Fdata%2Fdoc%2Ftest%2Ft1.txt

##</code><code>##

print $q->url(-absolute=>1, -path=>1), '?', $ENV{QUERY_STRING};
##</code><code>##

/cgi-bin/temp/self.cgi?file_url=//testdoc_dir/t1.txt&file_path=/u02/data/doc/test/t1.txt&43368