3 ms·perl -E 'opendir(my $d,".");say while readdir $d'by tyingq 5y agoperl -E 'opendir(my $d,".");say while readdir $d'