sub onFinish {
   while (<DAREADER>) {
      last if /^\.$/;
      print;
   }
}