Help for this page
use WiringPi::API qw(:wiringPi);
use WiringPi::API qw(:perl);
use WiringPi::API; my $wpi = WiringPi::API->new;