Select Code to Download

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