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);

##</code><code>##

my $gl_vendor = Win32::API->new(
    "OpenGL32", "char* glGetString(int a)"
)->Call( 0x1F00 );
print "Vendor (b): ", $gl_vendor;