use OpenGL::Image;

my @sorted_engine_info = OpenGL::Image::GetEngines();
foreach my $p (@sorted_engine_info) {
	foreach my $key (keys %$p) {
		print "$key: $p->{$key}\n";
	}
}
exit;

  ##########
  # Save GL frame
  my $image = new OpenGL::Image(width=>$width,height=>$height);

  # Read frame pixels
  glReadPixels_c(0, 0, $width, $height, $def_fmt, $def_type, $image->Ptr());

  # Save file - automatically does a Sync before write
  $image->Save('MyImage.tga');