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