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