perl -e "print `ping google.de` =~ /Antwort/ ? 'online' : 'offline'"