-foreach my $i (1..100) {
- $sysno = $sess->update_record(data => $rec2,
- recordType => 'grs.perl.pod',
- groupName => "demo1",
- force => 1,
- );
-}
-foreach my $i (1..10) {
- $sysno = $sess->update_record(data => $rec3,
- recordType => 'grs.perl.pod',
- groupName => "demo1",
- force => 1,
- );
-}
-foreach my $i (1..10) {
- $sysno = $sess->update_record(data => $rec2,
- recordType => 'grs.perl.pod',
- groupName => "demo1",
- force => 1,
- );
-}
-