$mw = new MainWindow (-title => "My Perl/Tk app");
my $newlogo = $mw->Photo(-file => $imagedir."logo.xpm", -format => 'xpm');
$mw->Icon(-image => $newlogo);