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