>>535
こんな風に書かれていましたから(照)
 # BadHostは恩赦♪@2013/02/07
 elsif (
    $status[2] eq 'BadHost'
   and $status[1] < $Now_time - 86400 * 0 ){
   delete $boo2008_DB_Hash{$key};
   print "4";
 }