один и тот же скрипт, отправка картинки на сервер. На локальном сервере работает у провайдера почему-то бьються картинки.Подскажите плиз, где ошибаюсь.
Скрипт:
my $query = new CGI;
## Считываю переменные установлинные пользователем
my $actionName = $query->param("actionName");
my $who        = $query->param("who");
my $subj       = $query->param("subj");
my $body       = $query->param("body");
my $subj       = $query->param("subj");
my $file_url   = $query->param("file");
#########################

print "Content-type: text/html\n\n";

if( $actionName ne "send")
{
   print "
           <form action='mail_test.pl' enctype='multipart/form-data' method='post'>
           Subj:&nbsp;&nbsp; <input type='text' name='subj' value='test'><br>
           Mail:&nbsp;&nbsp; <input type='text' name='who' value=''><br>
           Body:&nbsp; <input type='text' name='body' value=''><br>
           Image: <input type='file' name='file'><br>
           <input type='submit' value='send' name='actionName'>
           </form>
         ";
}
else
{
   ## Работа с файлом
   my $upload_dir = "./up";
   my($file_name, $size, $buff, $bytes_count);

   $size = $bytes_count = 0;
   $_ = $file_url;

   ## Получаем имя файла
s/\w://;
s/([^\/\\]+)$//;
$_ = $1;
s/\.\.+//g;
s/\s+//g;
$file_name = $_;

   ## Сохраняем файл
open(FILE,">$file_name") || print "Error opening file";
   binmode FILE;

   while ($bytes_count = read($file_url, $buff ,2096))
   {
    $size += $bytes_count;
       print FILE $buff;
   }
   close(FILE);
}
Заранее признателен !!!

Я конечно не эксперт но думаю что файл который надо открыть для чтения тоже в BINMODE

Цитата(bavc @ 23.8.2002, 13:51)

Я конечно не эксперт но думаю что файл который надо открыть для чтения тоже в BINMODE

Спасибо большое за ответ!!!
Я уже разобрался, вся проблемма была в том, что у провайдера русский Апапч, перекодировка будь она неладна :(