#! /usr/bin/perl -w

use strict;

use URI;

my $image = 'http://www.example.com/img/navleft1.jpg';
my $i = URI->new($image);

print 'relative ', $i->rel('http://www.example.com/story/page4.html'), "\n";
print 'relative ', $i->rel('http://www.example.com/story/down/here/page6.html'), "\n";