Oh, yeah--- Once I write that Model::Poser module I was talking about (I goofed on the name the first time), the above script will be OO, and thus as easy as:

#!/usr/bin/perl
use Model::Poser;

my $file = shift;
my $model = Model::Poser->open($file);
$model->SetRootPath(undef);
for my $actor ($model->Actors, $model->Props) {
    if ($actor->HasCustomGeom) {
        $actor->ExtractGeomToObject(-path => ':Runtime:Geometries:autoConvert',
                                    -nameFrom => [qw(actor model)]);
    }
}
$model->CleanAllPaths(-root => ':Runtime:Textures');