Делаю аплод файла, аплодится успешно, имя файла определяю так:
автор
my $req = new CGI;
my $file = $req->param("upload_file");
my $fileName = $file;
$fileName =~ s/.*(\/|\\)(.+)\.(zip|rar|jpg|gif)/$2\.$3/g;

print "|$fileName|";

После этого кода на экран выводится вот что:
|test.jpg|

Далее у меня код:
автор
my $zip = Archive::Zip->new();
my $member = $zip->addString( $link_text, 'ReadMe.txt' );
$member->desiredCompressionMethod( COMPRESSION_STORED );
$member = $zip->addFile( $fileName );
die 'Arhive::ZIP: write error' unless $zip->writeToFileNamed( "sdf.zip" ) == AZ_OK;

и вот он ошибочен... Причем, если делаю вот так:
автор
my $zip = Archive::Zip->new();
my $member = $zip->addString( $link_text, 'ReadMe.txt' );
$member->desiredCompressionMethod( COMPRESSION_STORED );
$fileName = "test.jpg";
$member = $zip->addFile( $fileName );
die 'Arhive::ZIP: write error' unless $zip->writeToFileNamed( "sdf.zip" ) == AZ_OK;

то всё проходит отлично.. но почему? Что ему не нравится в строке $fileName? Неужели там есть какие-то невидимые символы?
Как можно удалить все кроме "видимых"?

Уже совсем не понимаю в чем тут может быть дело, почему код:
автор
open ( OUTFILE, ">$fileName" );
binmode ( OUTFILE );
while ( my $bytesread = read( $file, my $buffer, 1024 ) ) {
print OUTFILE $buffer;
}
close ( OUTFILE );


свободно сохраняет в файл с именем $fileName а СРАЗУ же после этого кода я пытаюсь заархивировать этот файл и он не может этого сделать, почему?
Почему смог сохранить, но ошибка при открытии через addFile ??
причем, если я присваиваю напрямую имя файла то всё хорошо.... чет тут не чисто :-)

Причем файл test.jpg реально существует в текущей директории...
в чем тут трабла ума не приложу....

вроде print $fileName; выводит:
test.jpg

но ошибка появляется, указывающая на строку addFile:
авторSoftware error:

Arhive::ZIP: write error at F:/WWW/home/localhost/cgi-bin/work/FileUploaderXP/upload.cgi line 57
но если print $fileName; заменить на такое:
$fileName = "test.jpg";

то всё проходит отлично.... я в ауте от безнадежности