*CORE::GLOBAL::require = sub { CORE::require($_[0]); if ($_[0] eq 'Net/Ping.pm') { $Net::Ping::TIMEOUT = 5000; # milliseconds } };