Извиняюсь, это тест

if($0~/^\-\-/&&sfxflag==1){                             #конец sfx-аттача
    outgluck=0;sfxflag=0;                               #sfxflag - признак для обработки аттача.exe
    close(pipe);close(endmsg);getline rply < pipe; if(rply~/^ok/) {print "Пришло подтверждение ..."}
  }