Загрузка swf

[Aib]

Вот такой скрипт:

#!/usr/local/bin/perl

use CGI;
use IO::File;

binmode STDOUT;

CGI::ReadParse (*in);
$date=$in{'date'};
$date .= '.swf';

$dir = "/www"; #На локальном сервере
open WAY, "< $dir/$date";
binmode WAY;
$date = join('',<WAY>);
close WAY;
print "Content-Type: application/x-shockwave-flash\n\n$date";
exit

Должен переслать файл страничке. Ошибку не выдаёт, но файл не пересылает. Может, что в настройках сервера надо сделать.