sub get_sensor_id($) {
    my ($sensor) = @_;
    print "sensor input: $sensor\n";
    return 0;
}