use strict;
use warnings;

my $obj = bless {i => 1, j => 0};

$obj->run (1100, 20);


sub run {
    my ($self, $end, $start) = @_;
    my $records_to_be_feched =
        $end - 20 * $self->{i}++ - ($start - 20 * $self->{j}++);
}