#!/usr/bin/env perl

use strict;
use warnings;

use OpenGL;
sub glInit {
    OpenGL::glpcOpenWindow();
}

glInit();
print "Press return to exit\n";
while ( <> ) {
  exit;
}