PIDFILE=bt-rbl.$$

:0
* ? e-mail_script.pl $PIDFILE
{
   MESS=`cat $PIDFILE`
   JUNK=`rm $PIDFILE`

   :0
   /dev/null
}

JUNK=`rm $PIDFILE`

##</code><code>##

$flag=0; 
open(OUT,">$ARGV[0]") || die "Can't open conduit: $!";
while(<STDIN>) {
    $l=$_; chomp;
    $flag++ if(/^$/); # Header/Body seperation

    $header[$hi++]=$_ unless($flag);
    $body[$bi++]=$_ if($flag);
}