>perl -E"opendir my $dh, '.'; say join qq{\n}, grep{/\.pl$/} readdir($dh)"
demo_lock_data.pl
print_time.pl
self_rename.pl
uniq_time.pl
wrapped_pl.pl