#!/usr/bin/perl
use strict;
use warnings;

use Tk qw{ MainLoop };

my $mw = 'MainWindow'->new;
$mw->iconimage($mw->Pixmap(-data => << '__XPM__'));
/* XPM */
static char * pm_xpm[] = {
"32 32 4 1",
" 	c black",
".	c blue",
"X	c yellow",
"o	c red",
"                                ",
" .............................. ",
" .............................. ",
" .............................. ",
" .............................. ",
" .............................. ",
" .............................. ",
" .............................. ",
" .............................. ",
" ..........ooooooo............. ",
" ........ooooooooooo........... ",
" .......oo.........oo.......... ",
" ......oo...XXXXX...oo......... ",
" .....oo...X.....X...oo........ ",
" .....oo..X.......X..oo........ ",
" .....oo..X.......X..oo........ ",
" .....oo...X.....X...oo........ ",
" ......oo...XXXXX...oo......... ",
" .......oo.........oo.......... ",
" ........ooooooooooo........... ",
" ..........ooooooo............. ",
" .............................. ",
" .............................. ",
" .............................. ",
" .............................. ",
" .............................. ",
" .............................. ",
" .............................. ",
" .............................. ",
" .............................. ",
" .............................. ",
"                                "};
__XPM__
MainLoop();