Tk::StyleDialog is a Perl module that adds a fun drop-in replacement to the standard Tk dialog boxes. They look like your standard system dialog box, but with customizable icons and buttons. The module comes with a handful of built-in PNG images, from various generations of the standard error, warning, info, and question icons to more familiar icons such as floppy disks, computers, Defragmenter, Control Panel, MSN Butterfly, and Macintosh Apple.
my $how_say_you = $mw->StyleDialog (
-title => 'Uh-oh!',
-icon => 'error2',
-text => "Now you've done it--you've broken the Internet!
. "What are you going to do now?",
-buttons => [ 'Blame the other guy', 'I didn't do it',
'Plead the 5th', 'Admit guilt' ],
-button_states => [ 'normal', 'normal', 'normal', 'disabled' ],
-default_button => 'Blame the other guy',
-cancel_button => 'Plead the 5th',