if ($entry_order eq '0') {
         $insert .= "<!--begin-->\n";  # This will cause an error
     }
  }
  else {
     $insert .= $_;
  }
}
$sth=$dbh->prepare($insert);
$sth->execute();
$dbh->disconnect();