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