Здравствуйте!У меня в скрипте загрузки файлов на сайт возникает ошибка с MIME. Вот скрипт

#!/usr/bin/perl -w
use strict;
use CGI qw(:standard);
$CGI::POST_MAX=1024*250;
my $filename=param("filename");
my $mime=uploadInfo($filename)->{Content-Type};
...........
...........
А ошибка возникает на строке с "my $mime.....". Вот текст ошибки:

Bareword "Content" not allowed while "strict subs" in use at ... line
Bareword "Type" not allowed while "strict subs" in use at ... line
Execution of /путь/к/cкрипту/ aborted due to complition errors

Как мне устранить ошибку???

• Ошибка с MIME,uldus, 11:27 , 30-Апр-04
  • Ошибка с MIME,AJAX, 22:36 , 01-Май-04

>Как мне устранить ошибку???

Кавычки забыл.
my $mime=uploadInfo($filename)->{"Content-Type"};

>Кавычки забыл.
>my $mime=uploadInfo($filename)->{"Content-Type"};

Точно, что-то я не заметил.Все работает, спасибо! =))