if ($result->is_success)
      {
        $cururi = $result->base->as_string;
        print "URL: $url ($cururi)\n";

##</code><code>##

$ perl lwp-paco.pl http://users.pandora.be/dvt
URL: http://users.pandora.be/dvt (http://users.pandora.be/dvt/)
URL: http://users.pandora.be/dvt/top.htm (http://users.pandora.be/dvt/top.htm)
URL: http://users.pandora.be/dvt/top.htm (http://users.pandora.be/dvt/top.htm)
URL: http://users.pandora.be/dvt/tree.htm (http://users.pandora.be/dvt/tree.htm)
URL: http://users.pandora.be/dvt/start.htm (http://users.pandora.be/dvt/start.htm)