#!/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(){ if($_ eq "\n") { $i++; } else { $sig[$i] .= $_; } } $x = rand($i-1); print("Zsig: $sig[$x]\n"); exec("zwrite", "-s", $sig[$x], split(' ',$ops))