Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    # Take a quick nap to avoid wasting CPU
    select (undef,undef,undef,0.1);
}

no warnings;

...
    glEnd();
    }
}