use Win32::API;

my $gl_vendor = Win32::API->new(
    "OpenGL", "char* glGetString(unsigned int a)"
)->Call( 0x1F00 );