perl -lE"opendir$d,'.';say for grep/\.pl$/,readdir$d"

##</code><code>##

perl -lE"say for<*.pl>"