Select Code to Download

$mw->bind('<Configure>', \&Window_Resize);

#!/usr/bin/perl

...
    $pane->place( -height => $mwh-30, -width => $mww-20);
    $label->place(-y=>$mwh-20,-x=>$mww/2-70);
}