#!/afs/athena/contrib/perl/perl
 
srand;
open(ZSIGS, "/home/$ENV{'USER'}/.zsigs")|| open(ZSIGS, "/mit/$ENV{'USER'}/.zsigs")||  die("No ~/.zsigs file");
$ops = join(' ', @ARGV);
while(<ZSIGS>){
    if($_ eq "\n")
    { $i++; }
    else
    { $sig[$i] .= $_; }
}
$x = rand($i-1);
print("Zsig: $sig[$x]\n");
exec("zwrite", "-s", $sig[$x], split(' ',$ops))