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

##</code><code>##

while(`ping penn`){sleep 900}`qpage hck "penn is up"`;'
##</code><code>##

perl -e 'while(1){`ping penn`;if(0==$?){`qpage hck "Penn is up\!"`;exit;}sleep 900;}' &

##</code><code>##

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

##</code><code>##

perl -e 'while(`ping penn`){sleep 900}`qpage hck "penn is up"`;'