perl -MLWP -e 'print LWP::UserAgent->new->request(HTTP::Request->new(GET=>"http://example.com"))->is_success()?"up\n":"down\n"'