use WiringPi::API qw(:wiringPi);

##</code><code>##

    use WiringPi::API qw(:perl);

##</code><code>##

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