[pudge@bourque MacPerl]$ perl -Iblib/arch -Iblib/lib -MMacPerl -le 'print join "\n", MacPerl::Volumes()'
FF9C00000001:Orr
FF9B00000001:Bourque
FF9A00000001:Bird
[pudge@bourque MacPerl]$ perl -Iblib/arch -Iblib/lib -MMacPerl -le 'print join "\n", map { MacPerl::MakePath($_) } MacPerl::Volumes()'
/
/Volumes/Bourque
/Volumes/Bird
