#!/usr/athena/bin/perl
open(ZSIGS, "$ENV{'HOME'}/Zephyr/zsigs");
@zsigs = <ZSIGS>;
srand(time() % $$ + time());
print $zsigs[rand() * ($#zsigs + 1)];