sub set_gpio {
    my $pin = shift;
    if (open my $val, '>', "/sys/class/gpio/gpio$pin/value") {
        print $val shift;
        close $val;
    } else {
        return "Failed to set pin $pin $!";
    }
    return "SUCCESS";
}