my $m = MyUserAgent->new();

my $ROOT = "/var/www/ua-test";
$m->file_root($ROOT);

sub visit {
  my $url = shift;
  warn "visiting $url...\n";
  $m->get($url);
  if ($m->success) {
    print "successful for $url\n";
    for my $link ($m->links) {
      print "got link: ".$link->url_abs."\n";
      visit($link->url);
    }
  } else {
    print "Not successful for $url\n";
  }
}

visit("bar:/index.html");