$ perl | ls

##</code><code>##

$ perl | wc -l