Someone

print qq(Add a record\n);
my $new_rec = $schema->resultset('People')->create({
    app_id  => 'SUPERMAN'
  });

  $new_rec->last('Gutierrez');
  $new_rec->update;

print qq(Looking for it\n);
$rs = $schema->resultset('People')->search({ app_id => 'SUPERMAN' });
while ( my $rec = $rs->next ) {
#       print $rec->last . $rec->last . $rec->middle . "\n";
        print $rec->app_id . "\n";
}
print "\n";