use strict;
use warnings;
use Gtk2;

my $data = "\0" x 999999;
my $pixbuf = Gtk2::Gdk::Pixbuf->new_from_data
  ($data,
   'rgb', # colorspace
   0,     # has_alpha
   8,     # bits per sample
   2,2,   # width,height
   256);  # rowstride

my $p2 = $pixbuf->copy;
$p2->get_pixels;
