Select Code to Download

#! perl -slw
use strict;
...
}

printf STDERR "With T:$T Q:$Q took %.3f s\n", time - $start;

package threads::Q;
use strict; use warnings;
...
    lock @$Q;
    shift @$Q;
}