Перл скрипт

Скрипт на Перл что б разделить файл на несколько меньших файлов с указанным количеством строк. Имеются исходные

файлы с которых нужно взять определенное количество строк и поместить в другой файл. После этого удалить строки из исходного файла.