use SDL::App;
    use SDL::OpenGL;


    my $file = $x.'screenshot.bmp';

    glReadBuffer(GL_FRONT);
    my $data = glReadPixels(0, 0, '1024', '768', GL_BGR,
                            GL_UNSIGNED_BYTE);
    SDL::OpenGL::SaveBMP($file, '1024', '768', 24, $data);