[john@primary duplicates] 21:13 $ perl -c fixip.pl 
Use of /c modifier is meaningless in s/// at fixip.pl line 21.
Substitution pattern not terminated at fixip.pl line 19.

##</code><code>##

15 $I->execute;
 16 
 17 while(my $i = $I->fetchrow_hashref) {
 18 
 19     my $cnip = ($$i{s.misc04} << 16) + $$i{s.misc05};
 20 
 21     my $onip = ($$i{o.misc04} << 16) + $$i{o.misc05};
 22 
 23     $BILLMAX->do("UPDATE reset 
SET currentnip = $cnip,oldnip = $onip 
WHERE service = $$i{r.service}");
 24 }