if rxeacting to think then doit;
if rxeacting to arrives then turnon;

##turnon:
$d = 3;
switch $actor on;
print "[$actor] has woken up";
##doit:
switch $init_obj toggle;
$tmp = $init_obj's switch;
print "[$init_obj] is $tmp";
switch $actor off;