SHAY / perl-5.24.2 / cpan / Test-Harness / t / sample-tests / echo 
print '1..', scalar(@ARGV), "\n";
print "ok $_ ", $ARGV[ $_ - 1 ], "\n" for 1 .. @ARGV;