Select Code to Download

  my $count = $.;  # input line number

  delete $locks{$address};

for (sort keys %locks) {
  Log 0, "ERROR: address $_ locked at line $locks{$_} but never unlock
+ed.";
}