Нужна помощь! Чтение из файла

[KOTOFF]

Ребят, я в самом начале пути... приходится работать со скриптами, написанными другим... больше просто некому.
Суть:
Есть скрипт заказа, стандартный - клиент его заполняет и он нам отсылается мылом. Задача - вкрячить в него счётчик заказов. Что я делал (касаемо только этого):

Создал файлик sum куда пишутся и откуда читаются номера заказов. В скорипте:

@param = param();
$num = NUM();
...
sub NUM
   {
    open (NUM,"+    $num = ;
    seek (NUM,0,0);
    print NUM ++$num;
    truncate(NUM, tell(NUM));
    close (NUM);
    return $num;
    }

... далее в мэйлере:
print MAIL "Subject: On-line order $num \\n";

Всё работает, только заказы увеличиваются на 2 а не на 1... что делать? Где я лажаю?
Заранее спасибо за помощь!

[KOTOFF]

Я разобрался в причине, но устранить её не могу. Дело в том, что скрипт двуступенчатый.
1-я ступень - выбор товара - "отправить" и если что-то выбрано, то
2-я ступень - забиваются координаты - "отправить".

Наверное подпрограммка выполняется дважды... что делать? Помогите пожалуйста!!!

[KOTOFF]

Тема закрыта... я разобрался.
Ну тупо-о-о-о-о-ой! Надо было подпрограммку непосредственно перед отправкой мыла исполнять...
Ну чтож... всем спасибо за внимание