#!perl use Test::More; use Test::RequiresInternet ( 'www.google.com' => 'http' ); plan tests => 1; ok(1);