From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more
12 print '1..', scalar(@ARGV), "\n";print "ok $_ ", $ARGV[ $_ - 1 ], "\n" for 1 .. @ARGV;
print '1..', scalar(@ARGV), "\n";
print "ok $_ ", $ARGV[ $_ - 1 ], "\n" for 1 .. @ARGV;