use Tk; $mw=MainWindow->new; my $save = $mw->getSaveFile(-title=>'TEST',-initialfile=>'test'); [download]
Edit: g0n - code tags
In reply to getSaveFile - Perl Tk by Anonymous Monk