use Tk;
use strict;
my $mw = MainWindow->new(
      -background=>'YELLOW',
#      -bitmap=>'money.bmp',  # not here!
      );
$mw->state('zoomed');
yada-yada
MainLoop;
yada-yada