Concatener des fichiers

Bonjour,

Je débute en Perl
Je voudrais concatener tous les fichiers d un repertoire en ajoutant pour chaque fichiers de ce repertoire un enregistrement en debut de fichier et un enregistrement en fin de fichier (encapsulage de chaque fichier).

J arrive a ouvrir mon rep , a lire tous les fichiers , et pour chaque fichier a creer dans des variables l enregistrement de debut et l enregistrement de fin.

Mais je n arrive pas a ecrire dans un fichier final chaque fichier du repertoire avec ses 2 enregistrement en plus (1 en debut et 1 a la fin).

La commande system "cat ..."; ne fonctionne pas, je pense qu il faut passer par des "handle" mais je ne maitrise pas trop.

Pouvez vous m aider