sub new { my $class = shift; my $s = {}; bless $s, $class;
  
 $s->{Laboratory}  = new MotionSensorB('Laboratory',  'senMotion_H2_S1');
 $s->{Fruitcellar} = new MotionSensorA('Fruitcellar', 'senMotion_H1_S1');

 return $s;
}

##</code><code>##

sub event { my $c = shift;

 foreach my ??? (???) {
  print ??? . "\n";
  
}