/usr/share/doc/libopengl-perl/examples/try.pl is in libopengl-perl 0.6704+dfsg-2+b2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | #!/usr/bin/perl
#
# simple example that opens up a window then goes into interpretor mode
#
BEGIN{ unshift(@INC,"../blib"); } # in case OpenGL is built but not installed
BEGIN{ unshift(@INC,"../blib/arch"); } # 5.002 gamma needs this
BEGIN{ unshift(@INC,"../blib/lib"); } # 5.002 gamma needs this
use OpenGL;
glpOpenWindow;
glClearColor(0,0,1,1);
glClear(GL_COLOR_BUFFER_BIT);
glpFlush();
print "OpenGL window open, perl interpretor ready!\n";
print "Try entering some GL commands to draw stuff:\n";
while(<STDIN>){
$e=eval;
print "EVAL: $e\n";
print "ERROR: $@" if $@;
}
|