Select Code to Download

Select or download this

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

Select or download this

$ 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/tree.htm (http://users.pandora.be/dvt
+/tree.htm)
URL: http://users.pandora.be/dvt/start.htm (http://users.pandora.be/dv
+t/start.htm)