CODE EXAMPLE FOR PERL

perl mechanize infinite scroll with attempt count

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