my ($width,$height)=(800,800);
my $data='';
for(1..$width)
{
  for(1..$height)
  {
    @color=(255,0,0); # (Rot,Gün,Blau)
    $data.=pack('C3',@color);
  }
}
my $bmp = Wx::Bitmap->new($width,$height);
$bmp->CopyFromBuffer($data, wxBitmapBufferFormat_RGB,-1);