use Tk;
$mw=MainWindow->new;
my $save = $mw->getSaveFile(-title=>'TEST',-initialfile=>'test');