Help for this page
use strict; use warnings; use Tk; ... my $button = $mw -> Button (-command => \&save, -text => "save") -> pa +ck;<br> MainLoop; sub save {my $file = $mw -> getSaveFile}
sub save {my $file = $mw -> getSaveFile (-force => 1)}