# Avoid thrashing this procedure
    # Note Perl does not support usleep
    # For finer resolution sleep than seconds, try:
    #    'select undef, undef, undef, 0.1;'
    # to sleep for (at least) 0.1 seconds
    sleep(100);

##</code><code>##

use OpenGL qw(:all);    # Use the OpenGL module
use strict;             # Use strict typechecking
use Time::HiRes qw[ usleep ];

##</code><code>##

    # to sleep for (at least) 0.1 seconds
    usleep(100);