perl -MIO -le 'sleep 10 until IO::Socket::INET->new("www.google.com:80"); print "Action!"'