use warnings;
use strict;
use feature 'say';

use RPi::HCSR04;

my $trig_pin = 23;
my $echo_pin = 24;

my $sensor = RPi::HCSR04->new($trig_pin, $echo_pin);

# each call is a separate poll

say $sensor->raw;
say $sensor->cm . " cm";
say $sensor->inch . " \"";