% perl -e 'print while (<*.pl>);'