[MacPerl] choose folder

[nellA hciR <g3pb@alaska.net>]

what is the MacPerl equivalent to the following without using AppleScript?

$f = MacPerl::DoAppleScript("(choose folder) as string");
print "$f\n";   # print folder path as string


-- hcir


# ===== Want to unsubscribe from this list?
# ===== Send mail with body "unsubscribe" to macperl-request@macperl.org