--- /dev/null
+Index: libwww-mechanize-perl/t/live/computers4sure.t
+===================================================================
+--- libwww-mechanize-perl.orig/t/live/computers4sure.t 2007-12-01 18:12:17.000000000 -0600
++++ libwww-mechanize-perl/t/live/computers4sure.t 2007-12-01 18:16:55.000000000 -0600
+@@ -3,6 +3,10 @@
+ use warnings;
+ use strict;
+
++if ($ENV{NOINTERNET} ) {
++ use Test::More skip_all => "We don't have internet here";
++}
++
+ use Test::More skip_all => 'Still need to get the error-handling on here working';
+ use Test::More tests => 9;
+
+Index: libwww-mechanize-perl/t/live/wikipedia.t
+===================================================================
+--- libwww-mechanize-perl.orig/t/live/wikipedia.t 2007-12-01 18:12:17.000000000 -0600
++++ libwww-mechanize-perl/t/live/wikipedia.t 2007-12-01 18:17:12.000000000 -0600
+@@ -3,6 +3,11 @@
+ use warnings;
+ use strict;
+
++if ($ENV{NOINTERNET} ) {
++ use Test::More skip_all => "We don't have internet here";
++}
++
++
+ use constant LANGUAGES => qw( en it ja es nl pl );
+ use Test::More tests => 3 + (2 * scalar LANGUAGES);
+