use strict;
use warnings;
use Tk;
my $mw = MainWindow -> new;
my $button = $mw -> Button (-command => \&save, -text => "save") -> pack;<br>
MainLoop;
sub save {my $file = $mw -> getSaveFile}

##</code><code>##

sub save {my $file = $mw -> getSaveFile (-force => 1)}