[MacPerl] Switching Front Apps

[pudge@pobox.com (Chris Nandor)]

Does anybody have a subroutine that can switch the front process by passing
the id of the app?

i.e.,

&switchApp('McPL'); #switch to MacPerl
&do_something;
&switchApp('R*ch'); #switch to BBEdit

Thanks,

#================================================================
perl -e 'srand();if(rand>.5){$i=0;foreach(@ARGV){@$i=split(//);$z
[$i]=0;foreach(@$i){$s[$i][$z[$i]]=$_;$z[$i]++;}$i++;}foreach(@s)
{foreach(@$_) {print}print" ";$_++}}else{print(join(" ", @ARGV))}
print"\n"' McClellan Clan Motto: Think On

Chris Nandor                                      pudge@pobox.com
PGP Key 0xB76E72AD                              http://pudge.net/