my $protocol = "aaaaaaaaaaaaaaaaaaaaaaaaa";
my $model = "bbbbbbbbbbbbbbbbbbbbbbbbb";
my $sensorId = 1;
my $dataTypes = 2;

while (TellStick::tdSensor($protocol, 25, $model, 25, $sensorId, $dataTypes) == TELLSTICK_SUCCESS) {

  print "res: $res, protocol: $protocol, model: $model, sensorId: $sensorId, dataTypes: $dataTypes\n";
}