Select Code to Download

#!/usr/bin/env perl

...
  run [echo => $str], '|', [grep => 'foo'];
  print "$count " unless ($count % 10000)
}

 % ./t2.pl
10000 20000 30000 40000 50000 60000 70000 80000 90000 100000 110000 12
+0000 130000 exec failed: Argument list too long at ./t2.pl line 16.
 at ./t2.pl line 16.

# wc -c fw2.save
165670 fw2.save