Да я чето не то написал, вот он: ^if(def $form:pict){^form:pict.save[binary;/news/images/hirez/${schet}.jpg] $f[^file::exec[/../cgi-bin/images.pl;;img=1.jpg]] $f.text}
И вот в такой конструкции Перл скрипт не срабатывает, хотя по сути файл уже должен был сохраниться.