SHAY / perl-5.17.3 / cpan / Test-Harness / t / sample-tests / inc_taint 
#!/usr/bin/perl -Tw

use Test::More tests => 1;

ok( grep( /examples/, @INC ) );