perl -e 'print join "\n", @INC, ""'

##</code><code>##

push @things_to_do, performance_test( $foreach, $join );