categorized answer QandAEditors <p> While I haven't any experience with [mod://Win32::GUI], I've used [mod://Tk|Perl/Tk] successfully for this exact problem. The key methods are [http://aspn.activestate.com/ASPN/docs/ActivePerl-5.6/site/lib/Tk/getOpenFile.html|getOpenFile] and [http://aspn.activestate.com/ASPN/docs/ActivePerl-5.6/site/lib/Tk/getOpenFile.html|getSaveFile] Here's a short example: </p> <CODE> #!/usr/bin/perl -w use Tk 8.0; use strict; my $mw = MainWindow->new( -title => 'File Test' ); my $menu_bar = $mw->Menu; $mw->configure( -menu => $menu_bar ); my $file_mb = $menu_bar->cascade( -label => '~File', -tearoff => 0 ); $file_mb->command( -label => 'Open', -underline => 0, -command => \&f_open ); $file_mb->command( -label => 'Save', -underline => 0, -command => \&f_save ); $file_mb->separator; $file_mb->command( -label => 'Exit', -underline => 1, -command => sub{exit} ); MainLoop; sub f_open { my $filename = $mw->getOpenFile( -title => 'Open File:', -defaultextension => '.txt', -initialdir => '.' ); ### do something with $filename warn "Opened $filename\n"; } sub f_save { my $filename = $mw->getSaveFile( -title => 'Save File:', -defaultextension => '.txt', -initialdir => '.' ); ### do something with $filename warn "Saved $filename\n"; } #</CODE> <p> Note that [http://phaseit.net/claird/comp.lang.perl.tk/ptkFAQ.html#A16.2|Question 16.2. - Is there a file selector?] of the (somewhat stale) Perl/Tk FAQ lists several alternatives. Which, if any, of these is what got built into the Tk of ActiveState Perl, I don't know... </p> 15422