#!/usr/athena/bin/perl

while(1) {
open(ZEPHYR, "|zwrite -n -d -q -s Advertisement -i white-magic");
$foo = `cat /afs/sipb/user/mkgray/sipb/outline/zannounce`;
print ZEPHYR $foo;
close(ZEPHYR);
sleep(7500);
}