# -- file dialog my $types = [ ['PNG files', '.png'], ['All Files', '*'],]; my $output_path = $mw->getSaveFile( -filetypes => $types, -initialfile => time2str("%Y-%m-%d", time()) . '-export', -defaultextension => '.png', ); return 0 unless $output_path;