Как правильно брать текст из текскового файла в Perl

Я написал сценарий на Perl, который генерирует HTML-страницы следующим образом: он собирает их из содержимого трех текстовых файлов. В первом находится заголовок и ссылки, во втором запрошенная статья, а в третьем счетчики и теги окончания документа.
Я его поместил на сервер, запускаю из браузера, а выводится только третий текст. В исходном коде видно, что из каждого текстового файла скрипт берет ТОЛЬКО ПЕРВУЮ строку!
Где ошибка?
Вот текст скрипта:
#!/usr/bin/perl
print "Content-type:text/html\n\n";
$data=$ENV{'QUERY_STRING'};
$data =~ s/%(..)/pack ("C", hex ($1))/eg;
$data =~ tr/+/ /;
($name, $file)=split (/=/,$data);
$head="head.txt";
$foot="foot.txt";
$cont=$file.".txt";
open (FILE, "<$head");
$head=<FILE>;
close (FILE);
open (FILE, "<$foot");
$foot=<FILE>;
close (FILE);
open (FILE, "<$cont");
$cont=<FILE>;
close (FILE);
print "$head\n";
print "$contt\n";
print "$foot\n";

сделай файлы в одну строку
без переносов

если тебе нужен ВЕСЬ файл а не одна строчка то сделай так:

open (FI, "< lalala.txt");
while (<FI>)
{
$cont .= $_;
}
close (FI);

ну дык тыж вроде строку и просишь, юзая $foot
юзай @foot - те массив строк - а там уж обрабатывай его, склеивай, или еще как
Хотя тк файлы могут быть и огого какого размера, я по другому их читаю

или как arachnO написал - сразу и в строку склеит

Оффтопик: Перл ацтой =) , код похож на какашку

Я извиняюсь, но почему нельзя использовать include? Или (что там у нас еще в php есть) require, readfile, echo file_get_contents