#!/usr/bin/rexx

'/bin/grep "From " /var/mail/tony | wc -l >FIFO'

broj=0
IF QUEUED()>0 THEN
   PARSE PULL broj

broj=STRIP(broj)

SAY 'Ukupan broj MAIL poruka 'broj'.'

