$ perl t.pl <( ls -1 *.pl )
say something: Testing
t.pl: Testing