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

# but this gives me more satisfaction.

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

##</code><code>##

$ ./cfg d1 I standby 12345678901 foo-6000-1 12 J 15 M12345678V 98765432101 25 baz-6000-1-1 26 baz-6000-2-1 esp foo-6000-2 foo-6000-3
###
# outputs hundreds of lines of configuration commands
# for backend systems that don't have scripting native 
# to their CLI
###

if the others are lucky, they cut-n-paste-n-modify
some snippets:

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


##</code><code>##

use lib qw( /Q/perl );

package Watcher;
use Net::Server;
our (@ISA);
@ISA = qw/Net::Server/;

Watcher->run(
        log_level => 5,
        log_file => 'watcher.log',
        pid_file => 'watcher.pid',
        background => 1,
);

sub post_configure_hook {
  my $s = shift;
  $SIG{INT} = $SIG{TERM} = $SIG{QUIT} = sub { $s->server_close; };
  $SIG{HUP} = sub { $s->sig_hup; };

  my $done = 0;
  while (!done) {
    # work
  }
  $s->server_close;
}