-my $cmd = <STDIN>;
-chomp $cmd;
-if ( $cmd =~ m/^(\d+)$/ ) {
- my $pin = $1;
- system "gpio -g mode $pin out" unless pin2dir($pin) =~ m/OUT/i;
-
- my $v = `gpio -g read $pin`;
- warn "# pin $pin ", $v;
- $v ^= 1;
- system "gpio -g write $pin $v";
+sub cmd {
+ my $cmd = shift;
+ chomp $cmd;
+ if ( $cmd =~ m/^(\d+)$/ ) {
+ my $pin = $1;
+ system "gpio -g mode $pin out" unless pin2dir($pin) =~ m/OUT/i;
+
+ my $v = `gpio -g read $pin`;
+ warn "# pin $pin ", $v;
+ $v ^= 1;
+ system "gpio -g write $pin $v";
+ }