Siesta, some assembly required

mail arrives at the system, and gets funelled into the system with standard MTA juju.

 siesta-dev:       "|/usr/local/bin/tequila post siesta-dev"

cat /usr/local/bin/tequila

 #!/usr/bin/perl -w
 use strict;
 use Siesta;
 
 use constant debug => 1;
 
 eval {
     Siesta->new->process( action => $ARGV[0], 
                           list   => $ARGV[1], 
                           mail   => \*STDIN );
 };
 
 if ($@) {
     # let the MTA know we're deferring.
     print $@ if debug;
     exit 20;
 }

 __END__

 =head1 NAME
 ...