sub sendAll { my ($name) = @_; my $command = $world->GetAliasInfo($name, 101); foreach $world (Win32::OLE::in($world->GetWorldList)) { my $myworld; $myworld = $world->getworld($world); if (!defined($myworld)) { $world->note('World '.$world.' is not open.'); return; } else { $myworld->send($command); } } }