$ perl t.pl $( ls -1 *.pl | head -n 3 )
say something: booo
t.pl: booo