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

use URI::URL;
                                  # URL object with base specification
$url = URI::URL->new("../dir",    # create
                     "http://www.com/path1/path2/file.html");

                                  # ouptput relative path
print "Relative: ", $url->as_string(), "\n"; 
                                  # output absolute URL
print "Absolute: ", $url->abs(), "\n";