(defined $debug) &&
  foreach my $key (sort keys %option) {
    defined ($option{$key}) && (print (__LINE__ . ": $key = $option{$key}\n"))
  }; 

##</code><code>##

syntax error at ./documents/scripts/dspr.pl line 92, near "foreach "