Hi
thanks kevin for the solutions, it is working perfectly.
i have attached an example based on your second example, with a main window which have two buttons to display either a Triangle or a cube on a child window,
 
the downloadable code from here:
http://rapidshare.com/files/254608681/win32gui_opengl.pl
 
best wishes
 
the attached same code may displayed incorrectly, for some formatting problems:
 
  use strict;
  use warnings;
  #these constants are needed fWin32::API::Type->typedefor SetPixelFormat() but aren't defined in Win32::GUI
  use constant {
  PFD_TYPE_RGBA => 0,
  PFD_DOUBLEBUFFER => 0x00000001,
  PFD_DRAW_TO_WINDOW => 0x00000004,
  PFD_SUPPORT_OPENGL => 0x00000020,
  PFD_MAIN_PLANE => 0,
  };
  use OpenGL qw(:glfunctions :glconstants :glufunctions);
  #use OpenGL qw(:all);
  use Win32::API;
  use Win32::GUI qw();
  use Win32::GUI::Carp qw(warningsToDialog fatalsToDialog immediateWarnings winwarn windie);
  use Win32::GUI::Constants qw(IDI_APPLICATION WS_CLIPCHILDREN WS_CLIPSIBLINGS
  WM_CREATE WM_SIZE WM_CLOSE VK_ESCAPE CW_USEDEFAULT MB_OK MB_ICONEXCLAMATION);
  my $g_HDC; #global handle to device context
  my $hRC; #handle to rendering context
  my $rtri  = 0.0;
  my $xrot = 0;
  my $yrot = 0;
  my $flag = 1;
 my $objectXRot = 0.0;
 my $objectYRot = 0.0;
 my $objectZRot = 0.0;
#define PIXELFORMATDESCRIPTOR struct used for the SetPixelFormat function
#refer to the Windows SDK documentation for more info about this structure
  Win32::API::Struct->typedef(
  PIXELFORMATDESCRIPTOR => qw(
  WORD nSize;
  WORD nVersion;
  DWORD dwFlags;
  BYTE iPixelType;
  BYTE cColorBits;
  BYTE cRedBits;
  BYTE cRedShift;
  BYTE cGreenBits;
  BYTE cGreenShift;
  BYTE cBlueBits;
  BYTE cBlueShift;
  BYTE cAlphaBits;
  BYTE cAlphaShift;
  BYTE cAccumBits;
  BYTE cAccumRedBits;
  BYTE cAccumGreenBits;
  BYTE cAccumBlueBits;
  BYTE cAccumAlphaBits;
  BYTE cDepthBits;
  BYTE cStencilBits;
  BYTE cAuxBuffers;
  BYTE iLayerType;
  BYTE bReserved;
  DWORD dwLayerMask;
  DWORD dwVisibleMask;
  DWORD dwDamageMask;
  )
  );
#needed for the wglMakeCurrent functions
  Win32::API::Type->typedef('HGLRC', 'HANDLE');
#import some extra functions
#more info can be found in the Windows SDK documentation
#exchanges the front and back buffers of the current pixel format
  Win32::API->Import('gdi32', 'BOOL SwapBuffers(HDC hdc);')
  or windie "Win32::API->Import(SwapBuffers): $^E";
#attempts to match an appropriate pixel format supported by a device context to
# a given pixel format specification.
  Win32::API->Import('gdi32', 'int ChoosePixelFormat(HDC hdc, PIXELFORMATDESCRIPTOR * ppfd);')
  or windie "Win32::API->Import(ChoosePixelFormat): $^E";
#sets the pixel format of the specified device context to the format specified
# by the iPixelFormat index returned from ChoosePixelFormat().
  Win32::API->Import('gdi32', 'BOOL SetPixelFormat(HDC hdc, int iPixelFormat, PIXELFORMATDESCRIPTOR * ppfd);')
  or windie "Win32::API->Import(SetPixelFormat): $^E";
#creates a new OpenGL rendering context, which is suitable for drawing on the
# device referenced by hdc.
  Win32::API->Import('opengl32', 'HGLRC wglCreateContext(HDC hdc);')
  or windie "Win32::API->Import(wglCreateContext): $^E";
#makes a specified OpenGL rendering context the calling thread's current
# rendering context.
  Win32::API->Import('opengl32', 'BOOL wglMakeCurrent(HDC hdc, HGLRC hglrc);')
  or windie "Win32::API->Import(wglMakeCurrent): $^E";
#deletes a specified OpenGL rendering context.
  Win32::API->Import('opengl32', 'BOOL wglDeleteContext(HGLRC hglrc);')
  or windie "Win32::API->Import(wglDeleteContext): $^E";
#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
my $main = Win32::GUI::Window->new(
 -name => "main",
 -size => [640,480],
 -text => "OpenGL Child Windows",
 -pushstyle => WS_CLIPCHILDREN | WS_CLIPSIBLINGS,
);
my $child = Win32::GUI::Window->new(
 -name => "child",
 -size => [$main->ScaleWidth() / 2, $main->ScaleHeight() / 2],
 -pos => [200,100],
 -pushstyle => 'WS_CHILD',
 -parent => $main,
 -onTerminate => sub {
  wglMakeCurrent($g_HDC->Handle(), 0);
  wglDeleteContext($hRC);
  return -1;
 },
 -onResize => sub {
  my $self = shift;
  return 0 unless $self;
  my $height = $self->ScaleHeight();
  my $width = $self->ScaleWidth();
  $height = 1 if $height == 0;
  glViewport(0,0,$width,$height);
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity();
  gluPerspective(54.0, $width / $height, 1.0, 1000.0);
  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity();
  return 1;
 },
);
#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  $main->AddButton(
       -text    => "Triangle",
       -name    => "Button1",
       -left    => 23,
       -top     => 10,
       -width   => 56,
       -height  => 36,
       -foreground    => 0,
      );
     
      $main->AddButton(
       -text    => "Cube",
       -name    => "Button2",
       -left    => 23,
       -top     => 55,
       -width   => 56,
       -height  => 36,
       -foreground    => 0,
      );
     
      my $textfield = $main->AddTextfield(
       -text    => "",
       -name    => "Textfield_1",
       -left    => 120,
       -top     => 10,
       -width   => 150,
       -height  => 100,
       -multiline    => 1,
       -vscroll    => 1,
      );
     
     
  unless($main){
  windie("Cannot create window: $^E");
  }
  $main->SetIcon(Win32::GUI::Icon->new(IDI_APPLICATION)); #set window icon
#WM_CREATE
  $g_HDC = $child->GetDC(); #set global device context to device context of main window
   unless(SetupPixelFormat($g_HDC->Handle())){ #setup pixel format for device context
  exit 1; #exit if setup fails
  }
 
  $hRC = wglCreateContext($g_HDC->Handle()); #create rendering context used by OpenGL to draw
  wglMakeCurrent($g_HDC->Handle(), $hRC); #select rendering context $hRC into $g_HDC
#Initialize OpenGL
#my ($width, $height) = (300,200);
    glClearColor(0.0, 0.0, 0.0, 0.0);
    # Enables clearing of the Depth buffer
    glClearDepth(1.0);                   
    # The type of depth test to do
    glDepthFunc(GL_LESS);        
    # Enables depth testing with that type
    glEnable(GL_DEPTH_TEST);             
   
    # Enables smooth color shading
    glShadeModel(GL_SMOOTH);     
    # Reset the projection matrix
    glMatrixMode(GL_PROJECTION);
    glLoadIdentity;
    # Calculate the aspect ratio of the Window
    #gluPerspective(45.0, $width/$height, 0.1, 100.0);
    # Reset the modelview matrix
    $child->Show();
$main->Show();
$child->SetFocus();
 
  while(Win32::GUI::DoEvents() != -1){
  Render();
  }
#This function is used to set the pixel format for the device context.
# Accepts a handle to the device context of the window and returns true if succeeds
# or false if fails.
#Adapted from code from OpenGL Game Programming (Premier Press, 2004)
  sub SetupPixelFormat {
  my $hDC = shift; #is a handle to DC
  my $nPixelFormat;
  my $pfd = Win32::API::Struct->new('PIXELFORMATDESCRIPTOR'); #create new structure
  $pfd->{nSize} = $pfd->sizeof(); #return sizeof structure
  $pfd->{nVersion} = 1; #default version
  $pfd->{dwFlags} = PFD_DRAW_TO_WINDOW | #window drawing support
  PFD_SUPPORT_OPENGL | #OpenGL support
  PFD_DOUBLEBUFFER; #double buffering support
  $pfd->{iPixelType} = PFD_TYPE_RGBA; #rgba colour mode
  $pfd->{cColorBits} = 32; #32 bit colour mode
  $pfd->{cRedBits} = 0; #ignore colour bits
  $pfd->{cRedShift} = 0; #
  $pfd->{cGreenBits} = 0; #
  $pfd->{cGreenShift} = 0; #
  $pfd->{cBlueBits} = 0; #
  $pfd->{cBlueShift} = 0; #
  $pfd->{cAlphaBits} = 0; #not alpha buffer
  $pfd->{cAlphaShift} = 0; #ignore alpha shift bit
  $pfd->{cAccumBits} = 0; #no accumulation buffer
  $pfd->{cAccumRedBits} = 0; #ignore accumulation bits
  $pfd->{cAccumGreenBits} = 0; #
  $pfd->{cAccumBlueBits} = 0; #
  $pfd->{cAccumAlphaBits} = 0; #
  $pfd->{cDepthBits} = 16; #16 bit z-buffer size
  $pfd->{cStencilBits} = 0; #no stencil buffer
  $pfd->{cAuxBuffers} = 0; #no auxiliary buffer
  $pfd->{iLayerType} = PFD_MAIN_PLANE; #main drawing plane
  $pfd->{bReserved} = 0; #reserved
  $pfd->{dwLayerMask} = 0; #layer masks ignored
  $pfd->{dwVisibleMask} = 0; #
  $pfd->{dwDamageMask} = 0; #
# choose best matching pixel format
  unless( $nPixelFormat = ChoosePixelFormat($hDC, $pfd) ){
  winwarn("Can't find an appropriate pixel format");
  return 0;
  }
# set pixel format to device context
  unless( SetPixelFormat($hDC, $nPixelFormat, $pfd) ){
  winwarn("Unable to set pixel format");
  return 0;
  }
  return 1;
  }
#This function draws the cube of points. The colour of each point is based on its position
#Adapted from code from OpenGL Game Programming (Premier Press, 2004)
  sub DrawTriangle {
  glRotatef( $yrot, 0.0, 1.0, 0.0 );
  glRotatef( $xrot, 1.0, 0.0, 0.0 );
  glPushMatrix();
  glRotatef($rtri, 0.0, 1.0, 0.0);
  glBegin(GL_POLYGON);
    glColor3f(1.0, 0.0, 0.0);
    glVertex3f( 0.0, 50.0, 0.0);     # Top vertex
    glColor3f(0.0, 1.0, 0.0);       # Set The Color To Green
    glVertex3f( 50.0, -50.0, 0.0);    # Bottom right vertex
    glColor3f(0.0, 0.0, 1.0);       # Set The Color To Blue
    glVertex3f(-50.0, -50.0, 0.0); 
  glEnd();
  $rtri  = $rtri  + 2.0;
  glPopMatrix();
  }
  sub DrawCube {
  my $size = 40;    
  glRotatef($objectXRot, 1.0, 0.0, 0.0);
  glRotatef($objectYRot, 0.0, 1.0, 0.0);
  glRotatef($objectZRot, 0.0, 0.0, 1.0);
 
  glPushMatrix();
  glRotatef($rtri, 0.0, 1.0, 0.0);
 
 glPushMatrix();
  glScalef($size,$size,$size);
  glBegin(GL_QUADS);
   # bottom face
   glColor3f(0.0,0.0,0.0);    #black
   glVertex3f(-1.0,-1.0,-1.0);
   glColor3f(1.0,0.0,0.0);    #red
   glVertex3f(1.0,-1.0,-1.0);
   glColor3f(1.0,0.0,1.0);    #magenta
   glVertex3f(1.0,-1.0,1.0);
   glColor3f(0.0,0.0,1.0);    #blue
   glVertex3f(-1.0,-1.0,1.0);
   # front face
   glColor3f(0.0,0.0,0.0);    #black
   glVertex3f(-1.0,-1.0,-1.0);
   glColor3f(0.0,1.0,0.0);    #green
   glVertex3f(-1.0,1.0,-1.0);
   glColor3f(1.0,1.0,0.0);    #yellow
   glVertex3f(1.0,1..0,-1.0);
   glColor3f(1.0,0.0,0.0);    #red
   glVertex3f(1.0,-1.0,-1.0);
   # right face
   glColor3f(0.0,0.0,0.0);    #black
   glVertex3f(-1.0, -1.0, -1.0);
   glColor3f(0.0,0.0,1.0);    #blue
   glVertex3f(-1.0,-1.0,1.0);
   glColor3f(0.0,1.0,1.0);    #cyan
   glVertex3f(-1.0,1.0,1.0);
   glColor3f(0.0,1.0,0.0);    #green
   glVertex3f(-1.0,1.0,-1.0);
   # left face
   glColor3f(1.0,1.0,1.0);    #white
   glVertex3f(1.0,1.0,1.0);
   glColor3f(1.0,0.0,1.0);    #magenta
   glVertex3f(1.0,-1.0,1.0);
   glColor3f(1.0,0.0,0.0);    #red
   glVertex3f(1.0,-1.0,-1.0);
   glColor3f(1.0,1.0,0.0);    #yellow
   glVertex3f(1.0,1.0,-1.0);
   # top face
   glColor3f(1.0,1.0,1.0);    #white
   glVertex3f(1.0,1.0,1.0);
   glColor3f(1.0,1.0,0.0);    #yelllow
   glVertex3f(1..0,1.0,-1.0);
   glColor3f(0.0,1.0,0.0);    #green
   glVertex3f(-1.0,1.0,-1.0);
   glColor3f(0.0,1.0,1.0);    #cyan
   glVertex3f(-1.0,1.0,1.0);
   # back face
   glColor3f(1.0,1.0,1.0);    #white
   glVertex3f(1.0,1.0,1.0);
   glColor3f(0.0,1.0,1.0);    #cyan
   glVertex3f(-1.0,1.0,1.0);
   glColor3f(0.0,0.0,1.0);    #blue
   glVertex3f(-1..0,-1.0,1.0);
   glColor3f(1.0,0.0,1.0);    #magenta
   glVertex3f(1.0,-1.0,1.0);
  glEnd();
  $objectXRot += 0.5;
  $objectYRot += 0.5;
  $objectZRot += 0.5;
 
 glPopMatrix();
  }
#This function is used to draw the cube and is called every frame
#Adapted from code from OpenGL Game Programming (Premier Press, 2004)
  sub Render {
  glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT); #clear color and depth buffer
  glLoadIdentity(); #replaces the current matrix with the identity matrix.
  glTranslatef(0.0, 0.0, -150.0); #move to 0,0,-150
  glPushMatrix(); #save current matrix
  if ($flag == 1){DrawTriangle();}; #draw cube
  if ($flag == 2){DrawCube();}; #draw triangle
 
  glPopMatrix(); #restore matrix
  glFlush(); #clear buffers
  SwapBuffers($g_HDC->Handle()); #exchange front and back buffers of device context
 
  }
 
#Conveniently, the Windows specific functions for setup of OpenGL accept and return
# handles to windows or contexts, which are just numbers, and the handles to
# these are stored in the Window and DC objects created by Win32::GUI. This method
# provides an easy access to this value. Placing the method in the #Win32::GUI::DC
# package allows both Windows and DCs to use it.
  sub Button1_Click { 
  $textfield->Append("OpenGL example : rotating triangle\r\n");
  $flag = 1;
  $main->SetFocus(); #
 
 }
 sub Button2_Click { 
  $textfield->Append("OpenGL example : rotating Cube\r\n");
  $flag = 2;
  $main->SetFocus(); #
 
 }
 
  package Win32::GUI::DC;
  sub Handle {
  return shift->{-handle};
  }
 
  __END__