Select Code to Download

-image => $image,

$mw->deiconify;
$mw->raise;
#or
$top1->deiconify;
$top1->raise;

$mw->withdraw;
#or
$top1->withdraw;