не работает скрипт переменная $Serv не читается а если выпить перед $Serv="Serv24" ->ALL GUD
open(F,$Model_Path.$name."/".$name.".conf");
$Type_Session="";
$Serv="";
$Logg="";
$Pass="";
$Data_Path="";
$indFile=-1;
@SPF=0;
while(<F>)
{
if(/TYPE_SESSION= /){@SN=split(/= /,);$Type_Session=@SN[1];}
if(/SERVER_NAME= /) {@SN=split(/= /,);$Serv=@SN[1];}
if(/LOGG= /) {@SN=split(/= /,);$Logg=@SN[1]; }
if(/PASS= /) {@SN=split(/= /,);$Pass=@SN[1]; }
if(/DATA_PATH= /) {@SN=split(/= /,);$Data_Path=@SN[1];}
if(/DATA_FILES/) {$indFile=0;}
if(/DATA_FILES END/) {$inFile=-1;}
if($indFile!=-1) {@SN=split(/= /,);@SPF[$indFile]=@SN[1];$indFile++;$KolF=$indFile}
$ftp = Net::FTP->new($Serv, Port => "21" ) || die "Не могу открыть соединение с сервером $Serv\n";
даже хуже:
$ftp = Net::FTP->new("Star24", Port => "21" ) || die "Не могу открыть соединение с сервером $Serv\n";# так работает

беру перед конектом проверяю !!!
if($Serv=="Star24") {print "ok";} #тоже все нармально выдает ok!!!

вставляю переменную пишет не могу сконектится...

добавил строчку chomp $Serv; без изменений

это эквивалентно

0 == 0

Так как строковые сравнения в перле идут следующим образом:

 $Serv eq 'Star24'

Скорее всего у вас эта переменная не считывается.
Да и зачем делать проверку типа: если равно то ок. Вывиде на печать саму переменную и смотрите чему она равна
+

Ну дык оно и понятно, если выпить, оно всегда все хорошо