sub screenDisplay {
   my ( $thread, $status ) = @_;

   print header,
         start_html('Distributed Search Progress'),
         h1('Search in progress ... Please wait.'),
         $progress[$status], "Thread: $thread\n",
         hr,
         end_html;
}