while (! online('http') && $count < 30) {
    sleep 1;
    $count++;
}
# Schleife wurde beendet; sind wir jetzt Online oder nicht? 
# Alternativ hier auf den Wert von $count testen, dann wird der
# Online-Test nicht noch mal ausgeführt.
unless ( online('http') ) {
    die "bäh, nicht online...\n";
}