Help for this page

Select Code to Download

Select or download this

PIDFILE=bt-rbl.$$

...
}

JUNK=`rm $PIDFILE`

Select or download this

$flag=0; 
open(OUT,">$ARGV[0]") || die "Can't open conduit: $!";
...
    $header[$hi++]=$_ unless($flag);
    $body[$bi++]=$_ if($flag);
}