Help for this page
open(EXPORT_GRAPHIC,">picture.png"); binmode EXPORT_GRAPHIC; print EXPORT_GRAPHIC $picture->png; close EXPORT_GRAPHIC;
$new_window=$mw->Toplevel(); $frame=$new_window->Frame()->pack(); $frame->Label(-image=>$picture)->pack();