[MacPerl] StandardFile question

[Peter Furmonavicius <PETER@yalevm.ycc.yale.edu>]

Hi.  There was some discussion recently about using StandardFile.
The following MacPerl script:
-------------------------------
use Mac::StandardFile;
my $file = StandardGetFile(0,0);
 if ($file->sfGood()) {print $file->sfFile(),"\n";}
        else {print "no file selected\n";}
------------------------------
does a very nice job of selecting a file.
Is there a simple and elegant way to extend this to allow the user
to select a folder (directory)?  Thanks in advance.    - peter

***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch