perl mecanize rolagem infinita com tentativa de contagem

while( $mech->infinite_scroll ) {
    # Tests for exiting the loop earlier
    last if $count++ >= 10;
}
Vternal3