$mw = new MainWindow (-title => "My Perl/Tk app");
my $newlogo = $mw->setIcon(-file => $imagedir."logo.ico");