Makefile

teapot: teapot.cc
	 g++ -o teapot teapot.cc -lGL -lGLU -lglut

teapot.cc

// helloteapot.cc

#include <GL/gl.h>
#include <GL/glut.h>

void display () {

    /* clear window */
    glClear(GL_COLOR_BUFFER_BIT);

    /* draw scene */
    //glutSolidTeapot(.5);
    glutWireTeapot(1);

    /* flush drawing routines to the window */
    glFlush();

}

int main ( int argc, char * argv[] ) {

    /* initialize GLUT, using any commandline parameters passed to the 
       program */
    glutInit(&argc,argv);

    /* setup the size, position, and display mode for new windows */
    glutInitWindowSize(500,500);
    glutInitWindowPosition(0,0);
    glutInitDisplayMode(GLUT_RGB);

    /* create and set up a window */
    glutCreateWindow("hello, teapot!");
    glutDisplayFunc(display);

    /* tell GLUT to wait for events */
    glutMainLoop();
}

teapot.pl

#!/usr/bin/env perl
use OpenGL::GLUT ':all';
glutInit; my $Window_ID = glutCreateWindow("wtitle");
#glutSolidTeapot(1);
glutWireTeapot(1);
glutSwapBuffers();
sleep 10;