sub SAVE {

    @types =
	(["Text files",           [qw/.txt .doc/]],
	 ["All files",		        '*'     ]);
	
    my $file = $mw->getSaveFile(
	    -initialfile      => $save_file,
	    -defaultextension => '.txt',
	    -filetypes        => \@types);
    &exit;
}