perl t.pl <( ls -1 *.pl )