use Tk;
$mw=MainWindow->new(-title=>'Test');
$mw->resizable(0,0);
$resumen2=$mw->getSaveFile(
    -initialfile =>"test",
    -title =>"Anything",
    -initialdir       => "./*.txt",
    -defaultextension=>'txt'
    );
 print $resumen2;