Select Code to Download

$ blocker --ip <ip> [--case <case>] [--note <note>] [--unblock]

# but this gives me more satisfaction.

$ perl -MBlock -e 'block @ARGV' <ip> <case> <note>

$ ./cfg d1 I standby 12345678901 foo-6000-1 12 J 15 M12345678V 9876543
+2101 25 baz-6000-1-1 26 baz-6000-2-1 esp foo-6000-2 foo-6000-3
###
...

$ perl -e 'for(1..48){printf"somecmd %s $_ X0000000%02X auto$/","foo-6
+000-1",$_' | backend

use lib qw( /Q/perl );

...
  }
  $s->server_close;
}