Perl - perl

Mi problema es que me piden que haga un programa que imprima las 10 primeras linias del fitxero "facturas.txt" en un fichero llamado "coches.txt".
I no se como hacer este programa. Gracias es pero alguna respuesta.

Abres los dos ficheros con open, inicias el bucle de for() que cuente diez veces, y en cada bucle lees una línea y la escribes en el otro. Luego, cierras los ficheros.