$rs->Open($cmd,undef,adOpenStatic,adLockPessimistic);
        if ($rs->{EOF}) {
            # ....
        } else {
         #...
                         $rs->Update;
         #...
        }
[download]

I'm wondering if using a cursor that is defined as read only and scrollable, and then trying to update it, could be causing you problems.