#!/afs/athena/contrib/perl/p
 
srand;
open(ZSIGS, "$ENV{'HOME'}/.sig")|| die("No ~/.sig file");
$ops = join(' ', @ARGV);
 
$/ = "\n---\n";       #Zsig separator
 
    while(<ZSIGS>){
        $_ = substr($_,0,length($_)-5);
        $sig[$i++]=$_;
    }
    $x = rand($i-1);
    print("$sig[$x]\n");
    system("zwrite -n -s '$sig[$x]' $ops");