#!/usr/local/bin/perl
$MAILER="$ENV{'MAILER'}";
$command=shift;
open (out,"| $MAILER aids@cs.ucla.edu") || print "No $MAILER mailer.\n";
while (<STDIN>){
  if (/^-*  SCI.MED.AIDS ARCHIVE NUMBER ([0-9]*)  -*/) {
    print out "aids.mod.com $command $1\n" || print "No $MAILER mailer.\n";
    close out || print "No $MAILER mailer.\n";
    print "Article $1 $command" . "ed.";
    exit;
    }
  }
die "No archive number found!\n";
