my $dst  = $mw->getSaveFile(
            -initialdir       => $ENV{HOME},
            -defaultextension => '.in',
             -title            => 'Save',
            -filetypes        => [
                [ 'myfiles'    => '.in' ],
                [ 'All files' => '*'    ],
            ],
            );