use strict;
use Win32::API;

my $gl_getstring = Win32::API->new('OpenGL32', 'glGetString', 'I', 'P');
die "Could not load glGetString : $! / $^E"
  unless $gl_getstring;

print "Vendor(a): ", unpack "p", $gl_getstring->Call(0x1F00);