my $batchsize = @ARGV && ( $ARGV[0] =~ /^-b(\d+)/ )
        ? $1
        : 1000;