Select Code to Download

use RPi::WiringPi;
use RPi::Const qw(:all);
...
    my $pin = $pi->pin($_);
    $pin->write(HIGH);
}