use strict;
use warnings;
use Tk;

my $mw=MainWindow->new(-title=>'Test');
$mw->resizable(0,0);
my $resumen2=$mw->getSaveFile
  (
  -initialfile =>'inplace',
  -title =>"Save Anything",
  -initialdir => "c:/delme~~",
  -defaultextension=>'.wib',
  -filetypes =>
    [
    ['Text files', ['.txt', '.pl']],
    ['Wibble files', '.wib'],
    ['All Files',  '*']
    ]
  );

MainLoop;
print $resumen2;