Как написать в файл содержимое неск-ких файлов из каталога?

[DmitryP]

Помогите новичку в Перл. Написал скрипт целью которого является вывод на экран содержимого всех файлов каталога. Скрипт работает но только выводит кроме содержимого файлов названия всех файлов даже не из требуемого каталога да еще и какие-то непонятные значки.
Пример:
‰ 
. ‚p0 .. <Љ  a.txt _а=Љ Ш
be.txt а ‚p0 
. Kф/ .. ћp0   answer.html ѓp0 
privet
дорогой!

А вот сам скрипт:
opendir(DIR,$dirname);
print "Content-type:text/html\\n\\n";
while (defined($file=readdir(DIR))) {
open(FILE,"$dirname/$file");
while()
{
print;
}
close(FILE);
}
closedir(DIR);