#!/usr/bin/perl
use warnings;
use strict;
use Tk;
use Tk::Dialog;

my $top = MainWindow->new;

# a 32x32 gif image MIME64 encoded
my $icon = $top->Photo(-format => 'gif', -data => '
R0lGODlhIAAgALMAACcREeOxI1lSTJ6XlW5padXNvLOspYF5cnFoV5KKfdnX1j44Ntq9Xvv8+vjy
wL65uiH5BAAAAAAALAAAAAAgACAAAwT/sMlJq7046837VsUjjkY5FkraPaUxigZBmLARavCQlEM/
HIeeYWBIJISKi6KlOw5GB4JzaCTalM/iAUGw/ggCaeIwdg2VVHK1FwXLEGPjcIDWAoEyAveNuAeJ
GQ89RwiFAgsCAgiJiYUHJUkZBS1ai4yFcEY7BR0gRQlgh41kT5EeFAQAqgIFKKcZqauvGweqAAKz
DAwOFwK2BK8OAQEMF7G3F4KcFcLDvb8WCbZ0FQzEFg8LCwDaphIGtgkWRbwTCqAEeIkHFbUGyQvl
LF8+R4dEkX0YD2T8fXc+yICJougHAgwDRCFC1IWNjCjabvU5uE9TooHp3iTStsDIAW8UZgro2ILJ
IyZFmBwZQWhkoko4ZAxtVATkwYUB6frokRIET5tQjRAYMKUAp4EohtLJERiF5KVFC6iBWUBAgYyg
OVNa0taI44IkAiDi5BqUqiI9jBZKo7rgXUKgjAYSPMQ1IiK62thFAAA7
');

# set up the dialog
my $dialog = $top->Dialog(
    -bitmap  => 'warning',
    -text    => 'Danger Will Robinson!',
    -title   => 'Robot Says',
    -buttons => [qw(Run! Flee! Panic!)],
        );

# Modify the default icon
$dialog->Icon(-image => $icon);

# display it
my $answer = $dialog->Show;

print $answer;

MainLoop;