use WiringPi::API; my $wpi = WiringPi::API->new;