perl -e 'for($?=1;$?>0;`ping penn`){sleep 900}`qpage hck "penn now up"`;'