Broken Mac::Processes ... Help?

If you can, please try this script out, using the latest Mac::Carbon (0.77). Especially on Intel.

#!/usr/bin/perl -w
 
use Mac::Processes;
 
while ( ($psn, $psi) = each(%Process) ) {
    print $psi->processName, ' ' if $psi;
    print "$psn\n";
}

Let me know what platform you are using, and if the script terminates (as opposed to it just printing the same $psn forever (have your ctrl-C ready!)).