while (my $url = shift @todo) {
    print "Visiting: $url\n";

   $mech->get( $url);

    for ($mech->links) {
        my $link = $_->url_abs;
        push @todo, $link unless exists $seen{$link};
         $seen{$link}++;
    }
    ...
 }