将相同的文本添加到目录的所有文件中

Cha*_*hak 1 perl file

我有一个文件夹.该文件夹中有32个文件和3个目录.我想在顶部的每个文件上添加一些文本行.我怎样才能做到这一点?

TLP*_*TLP 6

使用File :: Find查找文件.使用Tie :: Fileunshift将行添加到文件的顶部.