Perleo,

Again I pulled out my "Mastering Perl/Tk - O'Reilly" and found the quickest solution - place the image in a button:

$image = $mw->Photo(-file => "bigredbutton.gif");
$mw->Button(-text => 'Exit', -command => sub { exit },
                   -image => $image)->pack;