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