1#!perl -T 2use 5.006; 3use strict; 4use warnings FATAL => 'all'; 5use Test::More; 6 7plan tests => 3; 8 9BEGIN { 10 use_ok( 'Socket' ) || print "No Socket!\n"; 11 use_ok( 'Time::HiRes' ) || print "No Time::HiRes!\n"; 12 use_ok( 'Net::Ping' ) || print "No Net::Ping!\n"; 13} 14 15note( "Testing Net::Ping $Net::Ping::VERSION, Perl $], $^X" ); 16 17