use autodie;
use Data::Dump qw(dump);
use IO::Socket::INET;
+use Storable;
my $openocd_remote = shift @ARGV || 'picam:4444';
}
warn "# pin2io = ",dump( $pin2io );
+store \$pin2io, '/dev/shm/pin2io.storable';
my @sort = sort {
my $aa = $a; $aa =~ s/\D+//g;