Select Code to Download

use strict;
use Win32::API;
...
  unless $gl_getstring;

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

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