xref: /openbsd-src/gnu/usr.bin/perl/cpan/Test-Harness/t/sample-tests/echo (revision f2da64fbbbf1b03f09f390ab01267c93dfd77c4c)

print '1..', scalar(@ARGV), "\n";
print "ok $_ ", $ARGV[ $_ - 1 ], "\n" for 1 .. @ARGV;