#!/usr/bin/perl -w
######################################################################
# (c) Michael Schilli 1999
######################################################################

use URI::URL;

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

                            # URI als String ausgeben
print "as_string: ", $url->as_string(),  "\n";
                            # Protokoll
print "scheme:    ", $url->scheme(), "\n";
                            # Zielrechnername
print "host:      ", $url->host(),   "\n";
                            # Portnummer
print "port:      ", $url->port,     "\n";
                            # Pfad
print "path:      ", $url->path(),   "\n";
                            # Query mit %xx-Zeichen
print "equery:    ", $url->equery(),  "\n";
                            # Query (aufbereitet)
print "query:     ", $url->query(),  "\n";

#--- Query-Parameter aufschlüsseln
%form = $url->query_form();
foreach $i (keys %form) {
    print "QUERY($i): $form{$i}\n";
}