#!/usr/bin/perl -w
use strict;
use Tk;

# An explanation to XPM file format can be found at 
# http://www.dcs.ed.ac.uk/home/mxr/gfx/2d-hi.html 

my $open = <<"EOD";
/* XPM */
static char * pixmap[] = {
/* width height num_colors chars_per_pixel */
"   16     12       4            1         ",
/* colors */
"   s None  c None",
".  c black",
"X  c yellow",
"o  c #5B5B57574646",
/* pixels */
"   ....         ",
"  .XXXX.        ",
" .XXXXXX.       ",
".............   ",
".oXoXoXoXoXo.   ",
".XoX............",
".oX.XXXXXXXXXXX.",
".Xo.XXXXXXXXXX. ",
".o.XXXXXXXXXXX. ",
".X.XXXXXXXXXXX. ",
"..XXXXXXXXXX..  ",
".............   "};
EOD


my $mw  = MainWindow->new();
my $image = $mw->Pixmap(-data => $open);
$mw->Label(-image => $image)->pack(-expand => 1, -fill => 'both');
$mw->Button(-text => 'Quit', -command => [destroy => $mw])->pack;
MainLoop;