Select Code to Download

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)}