Help for this page
#!perl -w use strict; ... $q_display->enqueue(undef); $display_control->join; print "Done\n";