use Gtk2;
use strict;
use warnings;

my $xpm = Gtk2::Gdk::Pixbuf->new_from_xpm_data (
"32 32 3 1",
" \tNone",
"x\t#000000",
);
print $xpm||'undef',"\n";