#!/usr/bin/perl -w
######################################################################
# url.pl
######################################################################
# Perl Power! - Michael Schilli 1998
######################################################################

use URI::URL;

$url = URI::URL->new(
       "http://remote.host.com/~user/dump.cgi?p1=d%201&p2=d%202"
       );

                            # output URI asa  string
print "as_string: ", $url->as_string(),  "\n";
                            # protocol
print "scheme:    ", $url->scheme(), "\n";
                            # target computer name
print "host:      ", $url->host(),   "\n";
                            # port number
print "port:      ", $url->port,     "\n";
                            # path
print "path:      ", $url->path(),   "\n";
                            # query with %xx characters
print "equery:    ", $url->equery(),  "\n";
                            # query (processed)
print "query:     ", $url->query(),  "\n";

#--- break down query parameters
%form = $url->query_form();
foreach $i (keys %form) {
    print "QUERY($i): $form{$i}\n";
}