Select Code to Download

use warnings;
use strict;
...
my $device = Device->new;

$device->event;

yep, 's1' is a sensor object
's3' isn't a damned sensor!
yep, 's2' is a sensor object