[perl-win32-gui-users] drawing a Polygon

[George]

hi
  i am trying to draw a polygon , in the code below wich is adapted from the 
Draw.pl demo in the win32-Gui package, the program run successfully if we 
uncomment the line :
  $DC->Rectangle(100, 100, 300, 200);
  and comment the line:
   $DC->Polygon(10, 10, 10, 200, 200, 200, 10, 10); 
  but if we uncomment the $DC->Polygon(10, 10, 10, 200, 200, 200, 10, 10); 
  and comment the  $DC->Rectangle(100, 100, 300, 200);
  the program will crash.
  can someone tell me how to draw the polygon

  # perl -w
use strict;
use warnings;
use Win32::GUI();
my $left;
    my $top;
    my $right;
    my $bottom;
    my $P;
    my $oldP;
    my $B;
    my $oldB;
  my $Win = new Win32::GUI::Window(
    -left   => 0,
    -top    => 0,
    -width  => 500,
    -height => 400,
    -name   => "Window",
    -text   => "Win32::GUI drawing demo",
    
);
  $Win->AddButton(
                -name => "Button1",
                -text => "RUN ",
                -pos  => [ 0, 0 ],
    );
srand();
  $Win->Show();
Win32::GUI::Dialog();
  sub Window_Terminate {
    return -1;
}
  
sub Button1_Click {
      my $DC = $Win->GetDC;
    my $x  = 0;
    my $y  = 0;
    $P = new Win32::GUI::Pen(   
            -color => [ rand()*255, rand()*255, rand()*255 ], 
            -width => rand()*5,
        );
        $B = new Win32::GUI::Brush(
            [ rand()*255, rand()*255, rand()*255 ]
        );
        $oldP = $DC->SelectObject($P);
        $oldB = $DC->SelectObject($B);
        
       #  $DC->Rectangle(100, 100, 300, 200);
      $DC->Polygon(10, 10, 10, 200, 200, 200, 10, 10); 
        
            
     $DC->SelectObject($oldP) if defined $oldP;
    $DC->SelectObject($oldB) if defined $oldB;   
    } 
  
    

       Choose the right car based on your needs.  Check out Yahoo! Autos new 
Car Finder 
tool.http://us.rd.yahoo.com/evt=48518/*http://autos.yahoo.com/carfinder/;_ylc=X3oDMTE3NWsyMDd2BF9TAzk3MTA3MDc2BHNlYwNtYWlsdGFncwRzbGsDY2FyLWZpbmRlcg--
 hot CTA = Yahoo! Autos new Car Finder tool