my $image = $mw->Bitmap(-file => "bw.bm");
my $frame = $mw->Frame(-relief => "flat", -tile => $image)->pack(-fill => "both", -side => "left", -expand => "1", 
-anchor => "w", -pady => "2");