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

use URI::URL;
                                  # URL-Objekt mit Basisangabe
$url = URI::URL->new("../dir",    # anlegen
                     "http://www.com/path1/path2/file.html");

                                  # Relativen Pfad ausgeben
print "Relativ: ", $url->as_string(), "\n"; 
                                  # Absolute URL ausgeben
print "Absolut: ", $url->abs(), "\n";