while ( my $records = fetch_next_5000_records_from_sth() ) {
  $runner->run( ..feed records to Amazon... );
)