Select Code to Download

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

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

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

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

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