use OpenGL::Simple qw(:all);
  use OpenGL::Simple::GLUT qw(:all);

  # All your favourite OpenGL functions and constants:
  glShadeModel(GL_SMOOTH);

  glLight(GL_LIGHT1,GL_AMBIENT,@LightAmbient);
  glLight(GL_LIGHT1,GL_DIFFUSE,@LightDiffuse);
  glLight(GL_LIGHT1,GL_SPECULAR,@LightSpecular);
  glLight(GL_LIGHT1,GL_POSITION,@LightPos);
  glEnable(GL_LIGHT1);
  glEnable(GL_LIGHTING);
  glEnable(GL_DEPTH_TEST);
  glutSolidTeapot(1);