> perl -E"say for grep{/\.pl$/} <*>"
demo_lock_data.pl
print_time.pl
self_rename.pl
uniq_time.pl
wrapped_pl.pl